Question

Написать программу которая 10 раз выводит на экран Имя и Фамилию. использование цыкл while

Answer 1

program llllllllll;
var a, b :string;
c:integer;
begin
    writeln('Введите имя');
    readln(a);
    writeln('Введите фамилию');
    readln(b);
    c:=10;
    while c>0 do
    begin
        write(a,' ');
        writeln(b);
        c:=c-1;
    end;
end.