23 lines
394 B
Plaintext
23 lines
394 B
Plaintext
let
|
|
var a: Integer;
|
|
var b: Integer
|
|
in
|
|
begin
|
|
! Get user input for both values
|
|
put('>'); put(' '); getint(var a);
|
|
put('>'); put(' '); getint(var b);
|
|
|
|
! Sum
|
|
putint(a+b);
|
|
puteol();
|
|
|
|
! Prod.
|
|
putint(a*b);
|
|
puteol();
|
|
|
|
! Check if the same
|
|
if a = b
|
|
then begin put('S'); put('a'); put('m'); put('e'); put('!'); end
|
|
else !nothing
|
|
end
|