| Marina_Ostrioglo | Дата: Понедельник, 25.04.2016, 22:39 | Сообщение # 1 |
 Генерал-лейтенант
Группа: Админ
Сообщений: 583
Статус: Offline
| programp5;
Procedurep;
begin
writeln (‘*, *,*’);
writeln(‘*,_*);
writeln(‘*,*,*’);
end;
begin
p;
writeln;
p;
writeln;
p;
end.
programp5;
var i:integer;
procedure pr;
begin
for i:=1 to 135 do write (‘*’);
end;
begin
pr;
writeln;
pr;
writeln;
pr;
end
|
| |
| |
|
