задача на процедуру Опции

[Новичок]

Помогите решить задачу на процедуру. Никогда не решал такого вида задачи
Решал подобную линейную задачу. Вот текст задачи
Оформить процедурой решение задачи на определение наибольшего из двух чисел

program f390;
 var a,x,y,b:real;
 procedure f1(var x,y:real);
 begin
if x>y then writeln ('a')
else writeln ('b');
 end;
 begin
 read(x,y);
 f1(x,y);
 writeln(a);
 writeln(b);
 end.

Теги...

Сообщение отредактировано: volvo - 10.02.2010 9:10

[Lapp]

Оформить процедурой решение задачи на определение наибольшего из двух чисел

Немного странно... Может, все-таки функцией?
Тогда было бы примерно так:

function Max(a,b: real): real;
begin
  if b>a then Max:=b else b:=a
end;