[LiLu77]

Сообщение от Viajero

ну ну... Задачи для 1 класса
2. If (X>=-1) and (Y<=1) and (Y>=Х) then ... тру ля ля ... вошло (если только график чертить не надо, но в условии об этом не сказано)
3. В условии уже и инструкция, внимательно только читать.

Вторая готова в таком случае:

Код:

program Grafic;

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  x, y : Double;  

begin
  Writeln('Vvedite x:');
  Readln(x);
  Writeln('Vvedite y:');
  Readln(y);
  if(x>=-1) and (y<=1) and (y>=x) then
  Writeln('Vowlo')
  else Writeln('Ne vowlo');
  Readln;
end.

А вот как формулу из третьего задания переписать на машинный язык?