Задачи разбиты решётками
var a, b, c, d, sub1, sub2, total: real;
procedure max_of_2(a, b: real; var max: real);
begin
if a > b then max:= a else max:= b;
end;
begin
read(a, b, c, d);
max_of_2(a, b, sub1);
max_of_2(c, d, sub2);
max_of_2(sub1, sub2, total);
writeln(total);
end.
###############################################
var a, b, sub: integer;
total: real;
procedure nod(k, l: integer; var c: integer);
begin
repeat
if k > l then
k := k mod l // тут алгоритм архимеда
else
l := l mod k;
until (k = 0) or (k = 0);
c := k + l;
end;
begin
readln(a, b);
nod(a, b, sub);
total:= (a * b) / sub;
writeln(total);
end.
################################################
var k, resl: real;
procedure geron(a, b, c: real; var res: real);
var p: real;
begin
p:= (a + b + c) / 2;
res:= sqrt(p * (p - a) * (p - b) * (p - c));
end;
begin
readln(k);
geron(k, k, k, resl); // площадь правильного шестиугольника
resl:= resl * 6; // это 6 площадей равностороннего треугольника со
writeln(resl); // стороной этого шестиугольника
end.