You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
394 B
23 lines
394 B
1 year ago
|
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
|