материнская плата,процессор,жесткий диск
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.
Баськин и Васькин назвали правильно цвет (красный, не синий), а Аськин - марку автомобиля (Тойота).
Ответ - красная тойота
ToPoint(1,1);
PenDown;
ToPoint(1,5);
ToPoint(6,5);
PenUp;
ToPoint(6,1);
PenDown;
ToPoint(1,1)
end.