Условие:
((x >=-1)&&(y<=1)&&(y>=x))
Если на Pascal, то:
program qq;
var a,b:integer;
Begin
Write('Введите значение 1 переменной: ');
Read(a);
Write('Введите значение 2 переменной: ');
Read(b);
Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.
Писали они на вощеных дощечках величиной в ладонь. соединялись шнурками в книжку писали палочкой - стилой.
1)
var
a, b, c, d, max: integer;
begin
readln(a, b, c, d);
if(a > b) and (a > c) and (a > d) then max := a
else if(b > a) and (b > c) and (b > d) then max := b
else if(c > a) and (c > b) and (c > d) then max := c
else max := d;
write(max);
end.
2)
var
a, b, c, max:
integer;
begin
readln(a, b, c);
if(a > b) and (a > c) then max := a
else if(b > a) and (b > c) then max := b
else max := c;
write(max);
end.