Если переменная создана уже в варе, то она будет равна 0, а если вообще не создана , то вообще будет ошибка компиляции
1. 123
2. 1453
3. 420
можно не благодарить
<span>Остаток от деления на 10 - цифра младшего разряда числа. Делим число на 10 с помощью %, получаем первую цифру (самый младший разряд), делим ещё раз - получаем вторую цифру, и так, пока от числа одна цифра не останется. Ну а потом просто перемножаем всё это дело (все цифры получившиеся).</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
Program z1;
var a,b,c,ha,hb,hc,s1,s2,s3:real;
begin
writeln('введите основание и высоту (соответственно) первого треугольника');
readln(a,ha);
s1:=1/2*a*ha;
writeln('площадь первого треугольника = ',s1);
writeln('введите основание и высоту (соответственно) второго треугольника');
readln(b,hb);
s2:=1/2*b*hb;
writeln('площадь второго треугольника = ',s2);
writeln('введите основание и высоту (соответственно) третьего треугольника');
readln(с,hс);
s3:=1/2*с*hс;
writeln('площадь третьего треугольника = ',s3);
end.