Question

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

Answer 1

A:=strtofloat(edit1.text);
b:=strtofloat(edit1.text);
c:=strtofloat(edit1.text);
d:=a*b*c;
if d<50 then
begin
a:=a*10;