Составить программку, которая выводит слова Истина, если три числа вводимые юзером

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

Задать свой вопрос
1 ответ
Program informatik;
Var x,y,z: integer;

begin

write('Введите 1-ое целое число '); readln(x);
write('Введите второе целое число '); readln(y);
write('Введите третье целое число '); readln(z);
if (xgt;0) and (ygt;0) and (zgt;0)  then writeln('Правда') else writeln('Ложь');
end.

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

 Не забудь нажать "Спасибо" и "Лучший"
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт