Лабораторная работа №6
Организация вводавывода”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков, стр. 170)
Автор: SlavikS
Program Lab_07;{Risovanie figuri}
{

123456
22 5
3  3 4
4 4  3
5 52
654321

Ubeditelnaya prosba xot` nemnogo menyat` isxodnii text programmi,
vsetaki prepoda odni i tege, mogut pridrat`sya :))

}
const
r=’ ‘;
var
z,n,i:integer;
begin
n:=5;
z:=1;
Writeln(‘+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+_+’);
Writeln;Writeln;
write(r);
while z begin
Write (z);
z:=z+1;
end;
Writeln;
for i:=2 to n do
writeln (r,i,i:(i-1),»:(5-i),7-i);
write(r);
while z>=2 do
 begin
z:=z-1;
write (z);
 end;
writeln;Writeln;Writeln;
Writeln(‘ _ _ _ _ _’);
Writeln;Writeln(‘HajmiTe [Enter] (c)_S’);
Readln;
end.