<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
1.
program _1;
var a,b,s:real;
begin
writeln('Вычисление площади прямоугольника.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
s:=a*b;
writeln('Площадь прямоугольника: ',s:5:2 ,' кв.ед.');
end.
2.
program _2;
var a,b,c,v:real;
begin
writeln('Вычисление объема параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
v:=a*b*c;
writeln('Объем: ',v:5:2 ,' куб.см.');
<span>end.
</span>
3.
program _3;
var a,b,c,s:real;
begin
writeln('Вычисление объема площади параллелепипеда.');
writeln('Введите исходные данные:');
write('Длина(см): '); readln(a);
write('Ширина(см): '); readln(b);
write('Высота(см): '); readln(c);
s:=2*(a*b+a*c+b*c);
writeln('Объем: ',s:5:2 ,' кв.см.');
end.
4.
program _4;
var a,v:real;
begin
writeln('Вычисление объема куба.');
writeln('Введите исходные данные:');
write('Введите длину ребра (см): '); readln(a);
v:=a*a*a;
writeln('Объем куба: ',v:5:2 ,' куб.см.');
end.
5.
program _5;
var a,b,k1,k2,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Кол-во тетрадей: '); readln(k1);
write('Цена карандаша(руб): '); readln(b);
write('Кол-во карандашей: '); readln(k2);
s:= a*k1+b*k2;
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.
</span>
6.
program _6;
var a,b,k,s:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена тетради(руб): '); readln(a);
write('Цена обложки(руб): '); readln(b);
write('Кол-во комплектов: '); readln(k);
s:= k*(a+b);
writeln('Стоимость покупки: ',s:5:2 ,' руб.');
<span>end.</span>
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>