Пример ввода для gcd(a,b):
10 15
Пример вывода:
5​

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

5. 

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.

 

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

const  xMin    = 1.5;  xMax    = 2.3;  xDelta  = 0.1; var  x, y, resultSum: real;  valueOfIt: integer; begin  x := xMin;  while x <= xMax do    begin      y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0);      if (y < 0) then        resultSum := resultSum + y;      x := x + xDelta;      valueOfIt := valueOfIt + 1;    end;  Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt); end.ответ

Среднее отрицательных значений: -12.7547010184892