In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode
Var a, b: integer;
begin readln(a,b);
while (a<>b) do
if a>b then a:=a-b
else b:=b-a;
writeln('наибольший общий делитель', a);
readln;
end.
Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
Var a,b,c:integer;
begin
readln(a,b);
c:=<span>(a+b)/2;
</span>writeln(c);
<span>end.</span>