Question

Помогите пожалуйста составить блок-схему!

Program abc;

Var i: integer;

a, b: string;

Begin

Write('Введите своё имя: ');

Readln(a);

Write('Введите свою фамилию: ');

Readln(b);

For i:=1 to 10 do writeln(a, ' ', b);

End.