Задача на алгоритмическом языке или любом языке программирования.

Даны 3 числа. Если их произведение меньше 50, то числа увеличились в 10 раз, в противном случае вывести произведение

(подробное описание)

Program figna; {это название}

var a, b, c, d: integer; {объявление переменных a, b, c и говорим что они целые}

begin {начало}

writeln ('введите три числа') ; {запрос чисел}

readln (a, b, c) ; {ввод чисел}

d:=a*b*c; {умножаем числа и присваиваем d их значение}

if (d<50) then {если произведение чисел меньше 50 то}

a:=a*10; {первое число умножаем на десять}

b:=b*10; {второе число умножаем на десять}

c:=c*10; {третье число умножаем на десять}

writeln (a) ; {выводим первое}

writeln (b) ; {выводим второе}

writeln (c) ; {выводим третье}

else {иначе}

writeln (d) ; {выводим произведение}

end. {конец}

P. S. этот символ { } паскаль не читает и означает он коментарий