Program primer; Var a,b, s, m, d: integer; Begin ReadLn( a,b); s:=a+b; m:=a*b; d:=a/b; WriteLn(s); WriteLn(m); WriteLn(d) readln; End. Много знаков препинания пропущено + переменные :)