Даны три натуральных числа. напишите программу, определяющую, существует ли треугольник с такими длинами сторон. если существует, определите его тип имеются данные о количестве полных лет трех призеров спартакиады. напишите программу, выбирающую и выводящую возраст самого младшего призера.

2.uses wincrt;

var a: array[1..3];

i: integer;

begin

min: =a[1];

for i: =2 to3 do

if a[i]< min then min: =a[i];

writeln('min=',min)

end.

Var so,sr,c: string; t,k: integer; begin; readln(so); t: =0; for i: =1 to length(so) do sr: =sr+'*'; while t< > 6 do begin; readln(c); if length(c)< > 1 then   begin;   writeln('только одна буква! ');   continue;   end; if pos(c,so)< > 0 then   begin;   for i: =1 to length(so) do     if so[i]=c then     begin;       delete(sr,i,1);       insert(c,sr,i);     end;   writeln(sr);   writeln('осталось ',6-t,' попыток');   end   else   begin;   writeln(sr);   inc(t);   writeln('осталось ',6-t,' попыток');   end;   if so=sr then break; end; if so=sr then writeln('вы выиграли') else writeln('вы проиграли'); end.

Var so,sr,c: string; t,k: integer; begin; readln(so); t: =0; for i: =1 to length(so) do sr: =sr+'*'; while t< > 6 do begin; readln(c); if length(c)< > 1 then   begin;   writeln('только одна буква! ');   continue;   end; if pos(c,so)< > 0 then   begin;   for i: =1 to length(so) do     if so[i]=c then     begin;       delete(sr,i,1);       insert(c,sr,i);     end;   writeln(sr);   writeln('осталось ',6-t,' попыток');   end   else   begin;   writeln(sr);   inc(t);   writeln('осталось ',6-t,' попыток');   end;   if so=sr then break; end; if so=sr then writeln('вы выиграли') else writeln('вы проиграли'); end.