$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program bai_giai;
uses crt;
var a, b, tong, hieu, tich: integer;
begin
        clrscr;
        writeln('Nhap gia tri a: '); readln(a);
        writeln('Nhap gia tri b: '); readln(b);
        tong:=a+b; hieu:=a-b; tich:=a*b;
        writeln('Tong cua hai so la: ',tong);
        writeln('Hieu cua hai so la: '.hieu);
        writeln('tich cua hai so la:',tich);
        readln;
end.

Program FNG
Uses crt
Var a,b,s,t,h: extended
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a,b)
        s:=a*b;
        t:=a+b;
        h:=abs(a-b);
        Writeln('Tong = ',t:0:2);
        Writeln('Hieu = ',h:0:2);
        Write('Tich = ',s:0:2);
        Readln