Задача 18.5.1.Записати тризначне число словами. (Спосiб 1)

program three2;
var x,y,z,n:integer; k:char;
no:string[20];
label 1,2,3,4;
begin
no:='';
1:
writeln('Введiть трьохзначне число');
writeln('Введiть трьохзначне число');
readln(n);
if (n<100) or (n>999) then
(n>999) then
begin
writeln(' П о м и л к а ! ! !');
sound(1500);
delay(150);
delay(150);
sound(600);
delay(150);
nosound;
goto 1;
end;
x:=n div 100;
div 100;
y:=(n-x*100) div 10;
z:=(n-x*100-y*10);
case x of 1: no:='сто ';
no:='сто ';
2: no:='двiстi ';
3: no:='триста ';
4: no:='чотириста ';
та ';
5: no:='п`ятсот ';
6: no:='шiстсот ';
7: no:='сiмсот ';
8: no:='вiсiмсот ';
no:='вiсiмсот ';
9: no:='дев`ятсот ';
end;
case y of 1: goto 3;
2: no:=no+'двадцять ';
2: no:=no+'двадцять ';
3: no:=no+'тридцять ';
4: no:=no+'сорок ';
5: no:=no+'п`ятдесят ';
'; 5: no:=no+'п`ятдесят ';
6: no:=no+'шiстдесят ';
7: no:=no+'сiмдесят ';
no:=no+'сiмдесят ';
8: no:=no+'вiсiмдесят ';
9: no:=no+'дев`яносто ';
носто ';
end;
case z of 1: no:=no+'один';
2: no:=no+'два';
3: no:=no+'три';
no:=no+'три';
4: no:=no+'чотири';
5: no:=no+'п`ять';
6: no:=no+'шiсть';
no:=no+'шiсть';
7: no:=no+'сiм';
8: no:=no+'вiсiм';
9: no:=no+'дев`ять';
no:=no+'дев`ять';
end;
goto 2;
3:
case z of 1: no:=no+'одинадцять';
цять';
2: no:=no+'дванадцять';
3: no:=no+'тринадцять';
4: no:=no+'чотирнадцять';
no:=no+'чотирнадцять';
5: no:=no+'п`ятнадцять';
6: no:=no+'шiстнадцять';
no:=no+'шiстнадцять';
7: no:=no+'сiмнадцять';
8: no:=no+'вiсiмнадцять';
no:=no+'вiсiмнадцять';
9: no:=no+'дев`ятнадцять';
end;
writeln(no);
writeln(no);
repeat until keypressed;
2:
writeln('Ще? (т/н)');
read(kbd,k);
read(kbd,k);
{repeat until keypressed;}
if (k<>'т') and (k<>'н') then
then
begin
sound(1500);
delay(200);
sound(200);
delay(150);
delay(150);
nosound;
goto 2;
end;
if k='т' then goto 1 else end.
else end.
end.
************************************************************
Задача 18.5.2 Записати тризначне число словами. (Спосiб 2)
************************************************************
program pr4;
var x:integer;
label 1;
begin
readln(x);
if x div 100=0 then write('');
if x div 100=1 then write('сто ');
if x div 100=2 then write('двiстi ');
if x div 100=3 then write('триста ');
if x div 100=4 then write('чотириста ');
if x div 100=5 then write('пятсот ');
if x div 100=6 then write('шiстсот ');
if x div 100=7 then write('сiмсот ');
if x div 100=8 then write('вiсiмсот ');
if x div 100=9 then write('девятсот ');
if x mod 100=10 then
begin write('десять');goto 1;end;
if x mod 100=11 then
begin write('одинадцять');goto 1;end;
if x mod 100=12 then
begin write('дванадцять');goto 1;end;
if x mod 100=13 then
begin write('тринадцять');goto 1;end;
if x mod 100=14 then
begin write('чотирнадцять');goto 1;end;
if x mod 100=15 then
begin write('пятнадцять');goto 1;end;
if x mod 100=16 then
begin write('шiстнадцять');goto 1;end;
if x mod 100=17 then
begin write('сiмнадцять');goto 1;end;
if x mod 100=18 then
begin write('вiсiмнадцять');goto 1;end;
if x mod 100=19 then
begin write('девятнадцять');goto 1;end;
if (x mod 100)div 10=0 then write(' ');
if (x mod 100)div 10=2 then write('двадцять ');
if (x mod 100)div 10=3 then write('тридцять ');
if (x mod 100)div 10=4 then write('сорок ');
if (x mod 100)div 10=5 then write('пядесять ');
if (x mod 100)div 10=6 then write('шiсдесять ');
if (x mod 100)div 10=7 then write('сiмдесят ');
if (x mod 100)div 10=8 then write('вiсiмдесять ');
if (x mod 100)div 10=9 then write('девяносто ');
if x mod 10=0 then write(' ');
if x mod 10=1 then write('один ');
if x mod 10=2 then write('два ');
if x mod 10=3 then write('три ');
if x mod 10=4 then write('чотири ');
if x mod 10=5 then write('пять ');
if x mod 10=6 then write('шiсть ');
if x mod 10=7 then write('сiм ');
if x mod 10=8 then write('вiсiм ');
if x mod 10=9 then write('девять ');
1:end.
end.