Составить программу, которая выводит слова Истина, если три числа вводимые пользователем положительные, и Ложь если хоть одно число отрицательно.
Примерно решение
Program p2;
var .. : integer;
И так далее

Program informatik;
Var x,y,z: integer;

begin

write(Введите первое целое число ); readln(x);
write(Введите второе целое число ); readln(y);
write(Введите третье целое число ); readln(z);
if (x>0) and (y>0) and (z>0)  then writeln(Истина) else writeln(Ложь);
end.

-------
if если
than - тогда
writeln - вывод на экран текст на след. стр.
readln - ввод текста на след. стр

 Не забудь нажать "Спасибо" и "Лучший"

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.