viết thuật toán: a, tính chu vi và diện tích hình chữ nhật biết chiều dài a và chiều rộng b(a,b được nhập từ bàn phím) b, tính bình phương của 1 số nguyên dương x

a)

var a,b:longint;

begin

write('Nhap chieu dai: '); readln(a);

write('Nhap chieu ong '); readln(b);

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

write('Dien tich la: ',a*b);

readln

end.

b)

var x:longint;

begin

write('Nhap x: '); readln(x);

write('BInh phuong cua x la: ',x*x);

readln

end.

a)program bai;
uses crt;
var a,b,p,s:real;
begin
        writeln('Nhap a=');readln(a);
        writeln('Nhap b=');readln(b);
        s:=(a*b);
        p:=((a+b)/2);
        writeln('chu vi la:',p:1:2);
        writeln('Dien tich la:',s:1:2);
        readln;
        end.

b)program binhphuong;
uses crt;
var x,i:integer;
begin
        clrscr;
        writeln('Nhap x=');readln(x);
        i:=x*x;
        writeln('Binh phuong cua x la',i);readln(i);
        readln;
        end.