1.от пользователя вводятся три трехзначных числа,вывести из них,в состав которых входит в состав которых входит наибольшая цифра,встречающаяся в этих числах. 2.дано число (1), определяющее возраст человека (в годах).для этого числа напечатать фразе " мне n лет".учитывая при этом, что при некоторых значения n слово " лет" заменяется на слово "год или года"

//pascal abc.net v3.1 сборка 1172 //1 var   a,b,c,max,i: integer;   ca,cb,cc,smax: string; begin max: =-1;   readln(ca);   readln(cb);   readln(cc);   for i: =1 to 3 do   begin     if strtoint(ca[i])> max then       begin         smax: =ca;         max: =strtoint(ca[i]);       end;     if strtoint(ca[i])> max then       begin         smax: =cb;         max: =strtoint(ca[i]);       end;     if strtoint(cc[i])> max then       begin         smax: =cc;         max: =strtoint(ca[i]);       end;     end;   writeln(smax); end. пример ввода: 123 456 908 пример вывода: 908 //2 var   n,n1: integer;   s: string; begin   readln(n);   n1: =n;     if (n=11) or (n=12) or (n=13) or (n=14) then s: ='лет' else         begin             n: =n mod 10;             case n of             0: s: ='лет';             1: s: ='год';             2: s: ='года';             3: s: ='года';             4: s: ='года';             5: s: ='лет';             6: s: ='лет';             7: s: ='лет';             8: s: ='лет';             9: s: ='лет';           end;   end; writeln('мне ',n1,' ',s); end. пример ввода: 18 пример вывода: мне 18 лет

var

  c: integer;

begin

  write('введите цифру '); readln(c);

  case c of

      0: writeln('ноль');

      1: writeln('один');

      2: writeln('два');

      3: writeln('три');

      4: writeln('четыре');

      5: writeln('пять');

      6: writeln('шесть');

      7: writeln('семь');

      8: writeln('восемь');

      9: writeln('девять');

  end;

end.

 

так что ли?