Задача на алгоритмическом языке или любом языке программирования. Даны 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. этот символ { } паскаль не читает и означает он коментарий