//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=matrixRandom(4,4);
Println(a);
var s:=0;
for var i:=0 to 3 do
for var j:=0 to 3 do s:=s+a[i,j];
println(s);
end.
<span>program z1;
Var v,S:Integer; t:real;
Begin
v:=12;
WriteLn('Известно что мальчик бегает в 3 раза больше чем ходит');
WriteLn('3 км/ч его ходьба, следовательно 12 км/ч его бег');
Write('Введите кол-во километров прбегаемых мальчиков: ');
Read(S);
t:=S/v;
WriteLn('Время потраченое мальчиком на пробежку = ',t,' час(ов)');
end.
</span>
<em>PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.
<u>Пример</u>
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568
Program PR1;
uses crt;
var skv,skr:real;
a,r:integer;
Begin
clrscr;
writeln('Введите сторону квадрата');
readln(a);
writeln('Введите радиус круга');
readln(r);
skv:=sqr(a);
skr:=pi*sqr(r);
if skv>skr then writeln('Площадь квадрата >')
else writeln('Площадь круга>');
end.