Решение на фотке.........................................
Навички
память народу
выдкриття
Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
<span>Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
</span>Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.