Câu 1:

Program bai1;

Uses crt;

Var a:integer;

Begin

Clrscr;

Write('Canh hinh vuong:');

Readln(a);

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

readln;

End.

Câu 2:

Program bai2;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write('Nhap so nguyen x:');

Readln(x);

Write('Nhap so nguyen y:');

Readln(y);

Writeln('Hieu cua ',x,' va ',y,':', x-y);

Writeln('Thuong cua ',x,' va ',y,':', x/y);

Readln;

End.

1)program hinh_vuong;

uses crt;

var a,s:real;

begin

clrscr;

write('nhap do dai 1 canh: ');readln(a);

s:=a*a;

write(' dien tich la',s);

readln; end.

2)program nhap_xy;

uses crt;

var x,y,thuong,hieu:integer;

begin

clrscr;

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

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

hieu:=x-y;

thuong:=x/y;

write(' thuong xy la',thuong,' hieu xy la',hieu);

readln;

end.