Unit oform;
        Interface
                       Uses
crt;
procedure mainmeny;
procedure podmenu1;
procedure podmenu2;
procedure shapabase;
procedure podvalbase;
procedure shapasprav;
procedure podvalspravka;
procedure shapaveda1;
procedure podvalveda1;
procedure shapaveda2;
procedure podvalveda2;
procedure videditbase;
procedure vidcreativbasepodval;
procedure nomerdlazaprosa;
procedure sob;
procedure sob2;
procedure shapaspravcreativ;
procedure podvalspravkacreativ;
procedure creativshapasprav;

     Implementation
{==================================}
procedure mainmeny;
begin
clrscr;
writeln('浜様様様様様様様様様�');
writeln('� 1  �甅�↓�� ����  �');
writeln('� 2  �����〓膈┴    �');
writeln('� 3  �イ���痰�      �');
writeln('� 4  �諷��          �');
writeln('藩様様様様様様様様様�');
end;

procedure podmenu1;
begin
clrscr;
writeln('浜様様様様様様様様様様様様様融');
writeln('� 1  ��Г�碎  �甅�↓�� ����  �');
writeln('� 2  ����※碎 ����瘡 � ���ユ �');
writeln('� 3  �イ��皋牀��碎           �');
writeln('� 4  �襤メ皋 �� 蹣���        �');
writeln('� 5  �����                   �');
writeln('藩様様様様様様様様様様様様様夕');
end;

procedure podmenu2;
begin
clrscr;
writeln('浜様様様様様様様様様様様様様�');
writeln('� 1 ��Г�碎 甎��〓膈覃 ���� �');
writeln('� 2 ����※碎 ����矚 � ���ユ �');
writeln('� 3 �イ��皋牀��碎           �');
writeln('� 4 �襤メ皋 �� 蹣���        �');
writeln('� 5 �����                   �');
writeln('藩様様様様様様様様様様様様様�');
end;

procedure shapabase;
begin
clrScr;
writeln('                                                        ��甎����┘ �� 瓮�メ矗');
writeln('浜様様冤様様様様冤様冤様様用様様様冤様用様様様様様様様用様様様用様様様用様様�');
writeln('� ��� ��┓      ��磴��┓   ��キ�  ������踳������皀��  � �珮�����カ�▲���メ盧');
writeln('�     ��磴�皰爬┳   貝イカ┳�イカ┳    �               �       �       �    �');
writeln('麺様様慷様様様様慷様慷様様謡様様様慷様謡様様様様様様様謡様様様謡様様様謡様様�');
end;

procedure videditbase;
begin
Writeln('                                                        ��甎����┘ �� 瓮�メ矗');
Writeln('浜用様様冤様様様様冤様冤様様用様様様冤様用様様様様様様様用様様様用様様様用様様�');
Writeln('�N ���� ��┓      ��磴��┓   ��キ�  ������踳������皀��  � �珮�����カ�▲���メ盧');
Writeln('�  �    ��磴�皰爬┳   貝イカ┳�イカ┳    �               �       �       �    �');
Writeln('麺謡様様慷様様様様慷様慷様様謡様様様慷様謡様様様様様様様謡様様様謡様様様謡様様�');
end;

procedure verxcreativ;
begin
writeln('浜様様冤様様様様冤様冤様様用様様様冤様用様様様様様様様用様様様用様様様用様様�');
end;

procedure vidcreativbasepodval;
begin
writeln('�  �    �         �   �      �      �    �               �       �       �    �');
writeln('藩溶様様詫様様様様詫様詫様様溶様様様詫様溶様様様様様様様溶様様様溶様様様溶様様�');
end;

procedure podvalbase;
begin
writeln('藩様様詫様様様様詫様詫様様溶様様様詫様溶様様様様様様様溶様様様溶様様様溶様様�');
end;

procedure shapasprav;
begin
clrScr;
writeln('   ����〓膈┴ �� Г���鍖');
writeln('浜様様冤様様様様用様様様様様融');
writeln('� ��� � ��Б��┘ �   �むメ   �');
writeln('�     �          �           �');
writeln('麺様様慷様様様様謡様様様様様郵');
end;

procedure podvalspravka;
begin
writeln('�     �          �           �');
writeln('藩様様詫様様様様溶様様様様様夕');
end;


procedure creativshapasprav;
begin
writeln('� 1   � 2        �   3       �');
writeln('麺様様慷様様様様謡様様様様様郵');
end;

procedure shapaspravcreativ;
begin
clrScr;
writeln('   ����〓膈┴ �� Г���鍖');
writeln('浜用様様冤様様様様用様様様様様融');
writeln('�N ���� � ��Б��┘ �   �むメ   �');
writeln('�  �    �          �           �');
writeln('麺謡様様慷様様様様謡様様様様様郵');
end;
procedure podvalspravkacreativ;
begin
writeln('藩溶様様詫様様様様溶様様様様様夕');
end;

procedure shapaveda1;
var
ved1:text;
begin
assign(ved1,'Vedomost'); append(ved1);
WriteLn(ved1,'                       ����腑痰〓 ��� � �イカ� � �磴�皰爬 ');
WriteLn(ved1,'浜様様様冤様様様様冤様様様様様冤様様様様様冤様様様様様�');
WriteLn(ved1,'�  ���  �  ����┘ � �┓       � �磴�皰爬� �����腑痰〓 �');
WriteLn(ved1,'� Г���鏗         � �磴�皰爬� �           劾��        �');
WriteLn(ved1,'麺様様様慷様様様様慷様様様様様慷様様様様様慷様様様様様�');
end;

procedure podvalveda1;
var
ved1:text;
begin
WriteLn(ved1,'�       �         �           �           �           �');
WriteLn(ved1,'藩様様様詫様様様様詫様様様様様詫様様様様様詫様様様様様�');
end;

procedure shapaveda2;
var
ved2 :text;
begin
assign(ved2,'Vedomost2');  append(ved2);
WriteLn(ved2,'');
WriteLn(ved2,'                       ����腑痰〓 ��� � �イカ� � �磴�皰爬 ');
WriteLn(ved2,'浜様様様冤様様様様冤様様様様様冤様様様様様様冤様様様様様様�');
WriteLn(ved2,'� ����┘�   �むメ � �┓       �������キ��痰豎������キ��痰貂');
WriteLn(ved2,'�       �         � �磴�皰爬� 劾� ����腑痰≪劾� ����腑痰≪�');
WriteLn(ved2,'�       �         �           � 腑��▲�  %  �    ���%     �');
WriteLn(ved2,'麺様様様慷様様様様慷様様様様様慷様様様様様様慷様様様様様様�');
close(ved2);
end;

procedure podvalveda2;
var
ved2 :text;
begin
assign(ved2,'Vedomost2'); append(ved2);
WriteLn(ved2,'�       �         �           �             �             �');
WriteLn(ved2,'藩様様様詫様様様様詫様様様様様詫様様様様様様詫様様様様様様�');
close(ved2);
end;

procedure nomerdlazaprosa;
begin
writeln('�  0  �    1    � 2 �  3   �  4   �  5 �       6       �    7  �  8    �  9 �');
writeln('麺様様慷様様様様慷様慷様様謡様様様慷様謡様様様様様様様謡様様様謡様様様謡様様�');
end;

procedure sob;
begin
writeln('浜様様様様様様様様様様様様様様融');
writeln('� �▲え皀 ��〓� Л�腑�┘ ����  �');
writeln('藩様様様様様様様様様様様様様様夕');
end;
procedure sob2;
begin
writeln('浜様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様�');
writeln('�        �甄� 絎皋皀 �����腮碎 爛���皋牀���┘  ��Μ�皀 "Q"    �');
writeln('藩様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様�');
end;
END.