- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
type
chel = record
name:string;
tag:int64;
end;
procedure go_to_banaj (var obj:chel);
begin
obj.tag:=obj.tag+1;
writeln(obj.name+', Пошел ты в баню')
writeln('Тебя послали в баню '+inttostr(obj.tag)+' Раз')
end;
procedure prolaps;
var
obj:chel;
begin
obj.tag:=0;
readln(obj.name);
//obj.name:='Фyтбалёр';
while 1=1 do
go_to_banaj(obj)
end;
guest 18.11.2009 00:15 # +1
striker 18.11.2009 05:28 # +1