Оперaционки:Windows(7,8,10,xp),Linux,Android,IOS.
Характеристики:они бывают разные,зависит от цены.
Вот тебе решение первогого и второго задания
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Var
number: integer;
sum, product, k: integer;
begin
repeat
write('number = ');
readln(number);
sum := sum + number;
until number = 0;
writeln('S = ', sum);
end.