Контрольна робота

1. Дани три різних цілих числа. Визначте, яке з них найбільше, найменше, середнє.

program nepovniuo;

uses crt;
Var a,b,c:integer;
BEGIN
Writeln('dano 3 chisla');
Readln
a:=17;
b:=10;
c:=6;
if (a>b) and (a>c) then;
if (c<a) and (c<a) then;
if (b<a) and (b>c) then;


2. Знайдіть максимальне з натуральних чисел, що менше за 5000
яке кратне числу 39!
program:p50
uses crt;
Var n,k:word;
BEGIN
n:=5000;
k:= 0;
repeat
n:=n-1;
If n mod 39=0 then
Begin
write(n,' '); k:=k+1;
end;
until k=5;
end.
END.