Câu 1:

var t,a,b:real;
begin
read(a,b);
if t>0 then
t:=a/b;
write(t:3:2);
while b<=0 do
write('ko thuc hien dc');
readln;
end.

Câu2var n:integer;
begin
read(n);
if n<16 then write('ko du dieu kien vao lop 10') else
write('du dieu kien vao lop 10');
end.

Câu 3:

var n:longint;
begin
read(n);
if n<100 then write('nho hon 100');
if n>100 then write('lon hon 100');
if n=100 then write('bang 100');
readln;
end.

Câu 3

code

program baitap;

uses crt;

var a,b,t:real;

begin

write('nhap a,b');

read(a,b);

if b<=0 then write(' ko thuc hien dc');

t:=a/b;

write(t:3:3);

readln;

readln;

end.

Câu 4

code

program baitap;

uses crt;

var a:longint;

begin

write('nhap tuoi');

read(a);

if a<16 then write('chua du dieu kien va hoc lop 10')
else write('da du dieu kien');

readln;

readln;

end.

Câu 5

code

program baitap;
uses crt;
var a:longint;

begin

write('nhap so do');

read(a);

if a<100 then write('so do be hon 100')

else write('so do lon hon 100');

readln;

readln;

end.