Написать программу, которая заменяет все цифры в заданной строке соответствующим словесным названием (1 – one, 2 – two, 3 –three и т.д.) язык программирования паскаль.

Var  a: integer; begin    writeln('введи цифру (1-9)');   readln(a);   if a=1 then writeln ('one');   if a=2 then writeln ('two ');   if a=3 then writeln ('three'); if a=4 then writeln ('four'); if a=5 then writeln ('five');   if a=6 then writeln ('six');   if a=7 then writeln ('seven');   if a=8 then writeln ('eight');   if a=9 then writeln ('nine'); end.  

Const  n=15; var  a: array[1..n] of real;   i,imax,imin: byte;   t: real; begin  writeln('введите ',n,' элементов массива');   imax: =1; imin: =1;   for i: =1 to n do begin      read(a[i]);       if a[i]< a[imin] then imin: =i      else          if a[i]> a[imax] then imax: =i      end;   t: =a[imin]; a[imin]: =a[imax]; a[imax]: =t;   for i: =1 to n do write(a[i],' '); end.

var

    a1, a2, a3 a4 max: integer;

 

begin

    write ('введите 4 числа: ');

    readln (a1, a2, a3, a4);

 

    if a1 > = a2 then

        max : = a1

    else

        max : = a2;

 

    if a2 > a3 then

        max : = a2;

if a3> a4 max then

max: =a4

 

    writeln ('максимальное из них: ', max);

 

readln

end.