Даны три действительных числа x, y, z. вычислить и напечатать следущую величину max(x+y+z, xyz)

X,y,z > =0 code: input x  input y input z if x> =0 or y> =0 or z> =  then end max1=x+y+z max2=x*y*z print "max("; max1; ","; max2; ")"

я, в основном, программы на с++ пишу, но из школы про паскаль кое-что помню (в смысле, попытаюсь написать на паскале).

program a1;

var a,b,c,i: integer;

begin

write('enter the a: ');

read(a);

writeln('enter the b: ');

read(b);

с: =0;

for i: =1 to a do

        c: =c+b;

writeln('a*b=',c: 5: 0);

end.

объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). например, a=5, b=3. переменную с=0 будем складывать с b.

i=1          c=5+0;

i=2          c=5+5;

i=3          c=10+5;     //c=15

вот и есть ответ: 5*3=15.

  на одну чашу весов поместим две монеты, на другую – монету и гирю. если весы уравновесятся, то фальшивая монета та, что осталась. за второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. предположим, что перевесила чаша, на которой находятся две монеты. сравним эти монеты при втором взвешивании. если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. в противном случае фальшивой окажется более тяжелая из двух сравниваемых монет.