Question

Помогите решить Pascal ABC
Даю 50 баллов

Answer 1

program fgg;

var
n: integer;

begin
Write('Сколько свиней? ');
ReadLn(n);
for n := 1 to n do
WriteLn('Number of pigs: ', n);
end.