Таблица истинности во вложении
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Я что-то не понял что на что конкретно ответить нужно.
Фолаут вот ответ но кто не точно
Program rabota_01;
Var a,b,c:integer;
Begin
write ('Введите три числа через пробел: ');
readln(a,b,c);
<span>if (a>b) and (a>c) then write('Максимальное числа - ',a);
</span><span>if (b>a) and (b>c) then write('Максимальное число - ',b);
</span>if (c>a) and (c>b) then write('Максимальное число - ',c);
end<span>.</span>