Question

Напишите Программы 1) последовательности чисел 0,5,10....1000 2) Предложите ввести три действительных числа а б с. Определите среди них максимальное

Answer 1

1) Условие неполное. Что делать с числами 0, 5, 10 ... 1000?

2)
var a,b,c,max: integer;
begin
  writeln('Введите 3 числа через пробел:');
  readln(a,b,c);
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  writeln('max=',max);
end.