[gokhanaygun]

kodları yazdım ...buyrun 15 dk nız var daha ..

uses crt;
var
mesaj:string;
begin
clrscr;
writeln('mesajnz girin');
readln(mesaj);
clrscr;
gotoxy((80-length(mesaj)) div 2,25);write(mesaj);
readln;
end.

kolay gelsin