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

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.