Program dapan;

Uses crt;

Var n:integer;

Begin

Clrscr;

Writeln('{Chỗ này bạn nhập họ tên lớp của bạn vào nhá}');

Write('Nhap n:');

Readln(n);

Writeln('Binh phuong cua ',n,'la:',n*n);

Writeln('So lien truoc:',n-1);

Writeln('So lien sau:',n+1);

Readln

End.

program ct_khong_kho;

uses crt;

var n:integer;

begin

clrscr;

writeln('tran dang khoa 12a3');

write('nhap n <=100');readln(n);

if (n<=0) and (n<=100) then 

begin

writeln('binh phuong n la',n*n);

writeln('so lien truoc n la',n-1);

write('so lien sau n la',n+1);

end;

else write('nhap n<=100 chu khong duoc nhap n>100');

readln;

end.