Пож решите по инфе: с клавиатуры вводят 2 целых числа.если 1 больше 2,то найти их сумму,иначе -произведение.

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