Program n_10;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей трёх величин');
write ('Введите а, b, c»!);
readln (a, b, c) ;
y: =a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln ('y=', y)
end.

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

Const   n=50; var   f: text;   s: string;   ss: array of string;   a: array[1..n] of string;   i,j: integer; begin   assign(f,'input.txt'); reset(f);   j: =0;   while not eof(f) do begin       readln(f,s);       ss: =s.split(' ');       for i: =0 to length(ss)-1 do           if length(ss[i])> 1 then               if rightstr(ss[i],2)='of' then               begin inc(j); a[j]: =ss[i] end;   end;   close(f);   for i: =1 to j do write(a[i],' ');   writeln end. тестовое решение: 123of asdfdsof dasof есть решение и покороче, но совсем не уровня начинающих: uses   system.text.regularexpressions; const   n=50; var   f: text;   s: string;   a: array[1..n] of string;   i,j: integer; begin   assign(f,'input.txt'); reset(f);   j: =0;   while not eof(f) do begin       readln(f,s);       foreach var m: match in regex.matches(s,'\b\s+of\b') do       begin inc(j); a[j]: =m.value end;   end;   close(f);   for i: =1 to j do write(a[i],' ');   writeln end.