Составить блок-схему и программу: с клавиатуры введите 4 числа. выполните действия с числами, удовлетворяющие условиям: 1. если число четное, то увеличьте в 4 раза и выведите на экран результат 2. если число нечетное, то уменьшите его на 10 и выведите на экран результат.
// PascalABC.NET v3.3 1633
var nums: array [1..4] of integer;
begin
for var i:=1 to 4 do
nums[i]:=ReadLnInteger('Введите '+i+' число: ');
for var i:=1 to 4 do
begin
if nums[i] mod 2 = 0 then
nums[i] *= 4
else
nums[i]:=nums[i] div 10;
writeln(nums[i]);
end;
end.