$#QLinkVN$

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

1)

program lmao;
uses crt;
var a,b: integer;
begin
         clrscr;
         writeln('Nhap chieu dai: '); readln(a);
         writeln('Nhap chieu rong: '); readln(b);
         writeln('Chu vi HCN do la: ',(a+b)/2);
         writeln('Dien tich HCN do la: ',a*b);
         readln;
end.

2) 

program lmao234;
uses crt;
var a,b: integer;
begin
         clrscr;
         writeln('Nhap gia tri a: '); readln(a);
         writeln('Nhap gia tri b: '); readln(b);
         if (a<b) then writeln('Gia tri lan luot la ',a,' va ',b) else writeln('Gia tri lan luot la ',b,' va ',a);
         readln;
end.

3) 

program KhaBanh;
uses crt;
var a,b,c: integer;
begin
         clrscr;
          writeln('Nhap gia tri a: '); readln(a);
          writeln('Nhap gia tri b: '); readln(b);
          writeln('Nhap gia tri c: '); readln(c);
          writeln('Tich cua 3 gia tri tren la: 'a*b*c);
         readln;
end.

- Viết chương trình pascal tính chu vi, diện tích hình chữ nhật

uses crt;

var a,b:real;

begin

clrscr;

write('nhap chieu dai 2 canh: ');

readln(a,b);

writeln('Chu vi: ',(a+b)*2:4:2);

writeln('Dien tich',a*b:3:2);

readln

end.

- Viết chương trình pascal nhập 2 số nguyên khác nhau từ bàn phím và in hai số đó theo thứ tự tăng dần

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap a,b: ');

if a<b then wrteln(a,' ',b)

else writeln(b,' ',a);

readln

end.

- Viết chương trình pascal nhập 3 số tự nhiên a, b, c từ bàn phím. Viết chương trình in ra màn hình tích của 3 số đó

uses crt;

var a,b,c:byte;

begin

clrscr;

write('nhap a,b,c :');

readln(a,b,c);

writeln('Tich :',a*b*c);

readln

end.