Пож решите задачку по инфе:С клавиатуры вводят 2 целых числа.Если 1

Program z12;
var x, y, s: integer;      // s - сумма, х и у - числа
begin
writeln (x, y);
if xgt;y then
          begin
          s:= x+y;
          writeln (s);
          end     // я использую begin-end ибо два деяния после then. Кстати, если вдруг программка выдаст ошибку на этой строке, то пробуй поставить вот это ; (я теснее не помню, надобно оно либо нет)
else
s:= x*y;
writeln (s);
end.