1) program Bai_tap;
uses crt;
var a,b,thuong: real;
clrscr;
begin
write('nhap a') ; readln(a);
write('nhap b'); readln(b);
thuong:=a/b;
write( 'thuong=', thuong);
readln
end.
2) program CT;
uses crt;
var a: interger;
begin
clrscr;
writeln('a=');readln(a);
if a mod 2=0 then write ('a la so chan') else write ('a la so le');
readln
end.