Курсовая работа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.