Question

Помогите с Паскалем. Файл в прикрепленных.

Answer 1

var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln(min);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln(max);
end.

Пример:
1 2 3
1
3