Ниже программа вводит с клавиатуры три целых четырёхзначных числа, вычисляет два числа – максимальное из них и сумму этих чисел. на экран выводится то из них, у которого сумма первой и последней цифр максимальна. если суммы равны, то выводятся оба числа. var a,b,c,d,f,ds,fs : integer; begin vvod(a,b,c); max(d,a,b,c); f: =a+b+c; sum(d,ds) sum(f,fs) if ds> fs then writeln(d) else if dsfs then writeln(d) else if ds

program z1;

var a,b,c:real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

if (a>b) and (a>c) then writeln('a - наибольшее число') else

if (b>a) and (b>c) then writeln('b - наибольшее число') else

writeln('c - наибольшее число');

if (a<b) and (a<c) then writeln ('a-наименьшее число') else

if (b<a) and (b<c) then writeln ('b-наименьшее число') else

writeln ('c-наименьшее число');

  if ((a>b) and (a < c)) or ((a < b) and (a > c)) then

writeln('a-среднее число')

else

if ((b > a) and (b < c)) or ((b < a) and (b > c)) then

writeln('b-среднее число')    

else

writeln('c-среднее число');

end.

program simple_num;

var n:integer;

function simple(num:integer):boolean;

var count, i:integer;

   key:boolean;

begin

   count := 0;

   i := 1;

   repeat

       if num mod i = 0 then

           inc(count);

       inc(i);

   until (i > num);

   if count > 2 then

       key := false

   else key := true;

   simple := key;

end;

begin

   writeln('Введите натуральное число больше 1');

   readln(n);

   if n > 1 then

       if simple(n) then

           writeln('Число ',n, ' простое')

       else writeln('Число ',n, ' непростое')

   else writeln('введено число менее 1');

end.