Паспорт

[Carlo_Escavar]

Приветствую тебя пользователь.Вот хотел выложить Паспорт для pawno-info.

program pawnopassport; 
uses Crt; 
var i,x,l,y:string; 
f:string; 
Begin 
clrscr; 
writeln('Введите ваш ник:'); 
readln(i); 
writeln('Введите вашу страну:'); 
readln(x); 
writeln('Сколько вам лет:'); 
readln(f); 
writeln('Ваш уровень скриптинга:'); 
readln(l); 
writeln('Сколько у вас сообщений на форуме *********?'); 
readln(y); 
if f<'18' then 
 begin 
 writeln('_____________________________________'); 
 writeln('     Паспорт гражданина pawno-info.ru'); 
 writeln('_____________________________________'); 
 writeln(' Ник: ',i); 
 writeln(' Страна: ',x); 
 writeln(' Возраст: ',f,' - вам нельзя пить!'); 
 writeln(' Ур.Скриптинга: ',l); 
 writeln(' Сообщений: ',y); 
 end 
else 
 begin 
 writeln('_____________________________________'); 
 writeln('     Паспорт гражданина pawno-info.ru'); 
 writeln('_____________________________________'); 
 writeln(' Ник: ',i); 
 writeln(' Страна: ',x); 
 writeln(' Возраст: ',f,' - бухать можно!'); 
 writeln(' Ур.Скриптинга: ',l); 
 writeln(' Сообщений: ',y); 
 end; 
readln 
End.

Автор :Алахович