// 1
var
x:=4;
y:integer;
begin
y:=x-2;
writeln(y);
end.
// 2
// вещественный (real) и целые числа (integer)
