Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.
Нет, нельзя так как форматирование определяется милионом
В целом, все, но FTP специализирован на файлах: <em>F</em><em>ile </em>Transfer Protocol