<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(15,-50,50).Println.Average.Println
end.
<u>Пример</u>
10 -46 20 -5 -23 -27 -16 26 42 -28 -24 -25 20 49 -27
-3.6
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
наверное компьютер, мышь,принтер,колонки, клавиатура
Program zadacha;
Var a,b,c: Integer;
Begin
write('Введите А ');
read(a);
Write('Введите Б ');
read(b);
Write('Введите C ');
read(c);
If a>c*c-b Then Write(a+b)
Else Write(b+c);
ReadLn;
End.