// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
uses GraphABC;
begin
SetFontColor(clRed);
SetFontSize(16);
TextOut(50,50,'Красный свет - дороги нет!');
Pen.Width:=3;
DrawRectangle(140,100,240,300);
Pen.Width:=1;
Brush.Color:=clRed;
Circle(190,150,20);
Brush.Color:=clYellow;
Circle(190,200,20);
Brush.Color:=clLightGreen;
Circle(190,250,20);
end.
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
Udalit-delete[ ] s, podshitat obwee kolichestvo simvolov strlen(s)