Составить программу, которая выводит слова Истина, если три числа вводимые пользователем положительные, и Ложь если хоть одно число отрицательно. Примерно решение 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 - ввод текста на след. стр Не забудь нажать "Спасибо" и "Лучший"