<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s1, s2) := ReadReal2('Введите площади кругов:');
Println('Площадь прямоугольника равна ', 2 * Max(s1, s2) / Pi)
end.
<h3>Введите площади кругов: 46.13 41.52</h3><h3>Площадь прямоугольника равна 29.3672700993165 </h3>
С помощью интернета происходит передача информации
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>
(х-у)(х+у) формула подставляешь
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.