Viết chương trình tính tổng tích hiệu và thương của hai số nguyên bất kỳ được nhập từ bàn phím

Program phep_tinh;

Uses crt;

var x,y:integer;

begin

Writeln('ban hay nhap x:');Readln(x);

Writeln('ban hay nhap y:');Readln(y);

Writeln('x+y=',x+y);

Writeln('x-y=',x-y);

Writeln('x×y=',x*y);

Writeln('x:y=',x/y);

Readln

End.

program ct;

uses crt;

var a,b,tong,tich, hieu: interger; thuong:real;

begin

clrscr;

writeln (' so thu nhat la:');readln(a);

writeln ('so thu hai la:'); readln(b);

tong:=a+b; tich:= a*b;hieu: =a-b; thuong:=a/b;

writeln( 'tong la :',hieu:4:2);

writeln( 'tich la:',hieu:4:2);

writeln( 'hieu la:',hieu:4:2);

writeln('thuong la:',thuong:4:2);

readln;

end.