// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var a:array[1..2,1..6] of integer:= ((12,32,41,3,4,7),(9,19,23,24,27,39)); Writeln(a); var b:=MatrixRandom(10,10,6,43); Writeln(b) end.
program name;//Имя программы uses crt; var a:integer; BEGIN write('Введите сумму: '); readln(a); if a < 2500 then write('Подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');
if (a <= 10000) and (a >= 2500) then write('Подоходный налог составляет:', a*0.13 ,' рублей от суммы ',a, ' рублей'); if a > 10000 then write('Подоходный налог составляет:', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей'); ReadKey; end.<span> </span>