1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Writeln(a,' - четное')
else Writeln(b,' - четное')
end.
<u>Примеры</u>
3 18
18 - четное
10 7
10 - четное
7 9
9 - четное - это неверно, нарушено условие (нет четных)
6 12
6 - четное - это верно, хоть условие и нарушено (оба четных)