Написать программу, которая n раз выводит на экран на одной строке имя и фамилию, на другой строке дату рождения.

Надо сравнить.

Var first_name, data : string; i : byte; n : integer;

begin write ('Введи свое имя и фамилию: ') ; readln (first_name) ; write ('Ведите свою дату ррождения: ') ; readln (data) ; readln (n) ; for i : = 1 to n do write (first_name, ' ') ; writeln (' ') ; for i : = 1 to n do write (data, ' ') ; end.