Soal Ujian

uses wincrt;
var
x,y :integer;
a,b,c:string[20];
begin
write ('input pertama: ');readln (a);
write ('input kedua: '); readln (b);
write ('input ketiga: ');readln (c);
write ('kata akan diulang berapa kali: ');readln (x);
for y:=1 to x do
begin
gotoxy(20,5);writeln (c,'',b,'',a);
gotoxy(21,6);writeln (c,'',b,'',a);
gotoxy(22,7);writeln (c,'',b,'',a);
gotoxy(23,8);writeln (c,'',b,'',a);
gotoxy(24,9);writeln (c,'',b,'',a);
end;
end.