Question

найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль )

Answer 1

Program zadanie;
Var a,b,c,n:real;
Begin
 Writeln('Задайте число');
 Readln(n);
 Writeln('Введите 3 числа, больше заданного');
 Readln(a,b,c);
 If (a>n) and (b>n) and (c>n) Then
 begin
 a:=a*b*c;
 Writeln('Произведение 3-х вводимых чисел=',a);
 end
 Else Writeln('Неверно введены числа');
End.

and-логическое "и"