Program Marble_Top;

uses crt;

var i,n,t:integer;

begin

write('nhap n '); readln(n);

for i:= 1 to n do

if i*i =n then t:= t+1;

if t=1 then write (n, ' la so chinh phuong') else write (n, ' khong la so chinh phuong');

readln

end.

Program Tinh_toan;

uses crt;

var i,n:integer;

S:longint;

begin

For i:=1 to 5 do S:= S+i;

write('tong S = ' , S);

readln

end.

program tamgiac;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('nhap ba canh cua tam giac'); readln(a,b,c);

if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');

readln

end.

minh viet lon, sua lai: var a,b: integer;

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

program CT_dautien;

uses crt;

var a:integer;

begin

clrscr;

writeln('moi nhap so a');readln(a);

if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');

readln

end.

tinh phan tram cua moi nguyen to trong Al2O3

var x:integer;

y quen cho var ban ghi la: var x: integer