uses crt;

var a:integer;

begin

write('Nhâp khoang cach: ');

readln('a');

if(a=50) then writeln(' Lop doa là lop 11b14') else

if(a=100)then writeln(' Lop doa la lop 12c1');

readln();

end.

Còn s¡ Ó tr°Ýng ta n¿u s¯p theo hình vuông, tr°Ýng là trung tâm,

viÇc s¯p sÑ thé tñ tëng lÛp và là lÛp nào v«n ch°a rõ! H¡n th¿ nïa cé m×i kho£ng cách l¡i có 4 lÛp xu¥t hiÇn!

VD: TT(0;0) a1 - a11 dãy trái vÛi các tÍa Ù (-5;-5) ->(-5;5), b1-b11 dãy trên vÛi tÍa Ù të (-5;5) -> (5;5),

c1-c10(5,5) -> Ò

f‚øöøòhtCU htCCJ aJ ‚ý‚ý(5,-5); còn lÛp linh tinh hi hi cé coi là d1-d11 (5;-5) ->(-5;-5)

uses crt;

var a,b,c:real;

begin

write('Nhap khoan cach: ');

readln(a);

for a:=-5 to a:=5 do

for b:=-5 to b:=5 do.............