Написать программу, которая 10 раз выводит на экран ваши имя и фамилию в turbo pascal

var i:integer;
begin
  for i:=1 to 10 do
  writeln ('Sellsaccount Sellsaccountov');
end.