Viết chương trình pascal

Kiểm tra số chính phương:

uses crt;

var n:longint;

BEGIN

 clrscr;

 write('Nhap so nguyen duong n: ');readln(n);

 if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')

  else writeln(n,' khong la so chinh phuong');

 readln

END.

Chúc b học tốt

VD: Viết chương trình tính tổng 2 số a,b được nhập từ bàn phím

Program tong;

uses crt;

Var

        A,b:integer;

Begin

       Clrscr;

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

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

       write('Tong cua 2 so la: ',a+b);

       Readln;

End.

#HN

#Chuc_em_hoc_tot =))