1.напишите программу нахождение максимального среди трёх чисел. 2.вводятся оценки за контрольные работы по и ,выведите на экран молодец, если их сумма равна или более 9,иначе подтянись.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! №1 begin   var (a,b,c): =readreal3('введите три числа через пробел: ');   writeln('максимальное число ',max(a,max(b, end. №2 begin   var (a,b): =readinteger2('введите две оценки через пробел: ');   if a+b> =9 then writeln('молодец! ')   else writeln('подтянись! ') end.

системный блок

 

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?