Составте программы

uses crt;
var n:byte;
begin
clrscr;
repeat
write('Введите количество копеек от 1 до 99 n=');
readln(n);
until n in [1..99];
case n of
10..20,30,40:write(n,' копеек');
else
 case n mod 10 of
 1:write(n,' копейка');
 2..4:write(n,' копейки');
 else write(n,' копеек');
 end;
end;
readln
end.

uses crt;
var n:byte;
begin
clrscr;
write('Введите количество копеек от 1 до 99 n=');
readln(n);
if not(n in [1..99]) then write('Это недопустимое значение')
else
case n of
10..20,30,40:write(n,' копеек');
else
 case n mod 10 of
 1:write(n,' копейка');
 2..4:write(n,' копейки');
 else write(n,' копеек');
 end;
end;
readln
end.

uses crt;
var x1,y1,x2,x3,y2,y3:integer;
r1,r2,r3:real;
k:byte;
begin
clrscr;
write('vvedite koordinaty tochki A: ');
readln(x1,y1);
write('vvedite koordinaty tochki B: ');
readln(x2,y2);
write('vvedite koordinaty tochki C: ');
readln(x3,y3);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
r3:=sqrt(sqr(x3)+sqr(y3));
if (r1<r2) and (r1<r3) then
begin
writeln('tochka A blige k (0,0), chem B i C');
inc(k);
end;
if (r2<r1) and (r2<r3) then
begin
writeln('tochka B blige k (0,0), chem A i C');
inc(k);
end;
if (r3<r2) and (r3<r1) then
begin
writeln('tochka C blige k (0,0), chem B i A');
inc(k);
end;
if k=0 then writeln('tochki na ravnyh rasstoyniyh');
readln;
end.