Курсовая работа2 / Examples / Arithm

var
a: integer;
b: integer;
c: real;
d: real;
begin

Writer('Enter a (integer): ');
read(a);
Write('Enter b (integer): ');
read(b);
writeln;

write('-a = ');
write(-a);
writeln;

write('a+b = ');
write(a+b);
writeln;

write('a-b = ');
write(a-b);
writeln;

write('a*b = ');
write(a*b);

Write('Enter c (real): ');
read(c);
Write('Enter d (real): ');
read(d);
writeln;

write('-c = ');
write(-c);
writeln;

write('c+d = ');
write(c+d);
writeln;

write('c-d = ');
write(c-d);
writeln;

write('c*d = ');
write(c*d);
end.