Câu 1:

Program cau1;

Uses crt;

Var x,y:real;

Begin

Clrscr;

Write('Nhap lan luot x va y:'); 

Readln(x,y);

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

Readln

End.

Câu 2:

Program cau2;

Uses crt;

Var a:real;

Begin

Clrscr;

Write('Chieu dai 1 canh:');

Readln(a);

Writeln('Chu vi hinh vuong:',a*4);

Writeln('Dien tich hinh vuong:',a*a);

Readln

End.

program solonhat

uses crt;

var x,y: real

begin

clrscr

write( nhap so  x');readln(x);

write( nhap so y');readln(x)

if x>y then write ( so lon nhat la' ,x) else write (so lon nhat la' ,y);

end

câu 2

uses crt;

var a,s,c:real

begin

clrscr;

write(‘nhap canh:’);

readln(a);

c:=a*4;

s:=a*a;

write(‘chu vi và diện tích hình vuông là: ‘,p,’ và ‘,s);

readln;

end.