нестандартные задачи в паскале

[Sazary]

Сообщение от vadek13

блин!!!!!! программа в паскале не работает!!!!!
может я что-то не так делаю????????

А вы не забыли сказать, что именно не работает? А то знаете, это понятие растяжимое..

[Olya90]

Держи код:

program Project1;

{$APPTYPE CONSOLE}

uses sysutils;
var
a,b : integer;

begin
readln(a,b);
write('Max = ');
case a-b of
 low(a)..-1: writeln(b);
 0..high(a): writeln(a);
 end;

readln;
end.