После do точку с запятой ставить не надо
uses crt;
var
i, j: integer;
begin
randomize;
for i := 1 to 20 do
begin
writeln(i);
textcolor(green);
for j := 1 to 20 do
write(random(50000));
textcolor(yellow);
for j := 1 to 20 do
write(random(50000));
textcolor(red);
for j := 1 to 20 do
write(random(50000));
end;
end.
Орёл-зрение
волк-обоняние
летучая мышь-слух
дельфин-слух
<span>крот-осязание</span>
Посредством SQL запросов, как и в обольшенсве баз данных
Ответ:3 целых 35/10........