Составить программу: если число четное, то возвести его в квадрат, иначе умножить его на 7 тремя блок-схема
2. алгоритмический язык
3. Pascal.

1) блок-схема прикреплена

2) Алг. язык: (Тут я без понятия, правильно или нет)

нач цел x

ввод x

если x/2=0

то вывод x^2

иначе вывод x*7

кон

3) Pascal:

var x:integer;

begin

 writeln('Введите число');

 readln(x);

 if (x mod 2) = 0 then writeln('Число четное, его квадрат: ' + x**2)

 else writeln('Число НЕ четное: ' + x*7);

end.