Задача на Pascal е

[Vovka91]

Всем доброго времени!
Помогите пожалуйса написать код программы на паскале, а то задали в институте. Сам вообще не соображаю в паскале, программировал давно на бейсике и тот забыл совсем

Задача:

Программа просит пользователя ввести 2 числа(x,y), затем, если (x-y)*(x+y)>0, выводит на экран "Работает", иначе пишет "Попробуйте еще" и переходит на начало. Окончание работы, если результат=0.

[ByAlex]

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

Всем доброго времени!
Помогите пожалуйса написать код программы на паскале, а то задали в институте. Сам вообще не соображаю в паскале, программировал давно на бейсике и тот забыл совсем

Задача:

Программа просит пользователя ввести 2 числа(x,y), затем, если (x-y)*(x+y)>0, выводит на экран "Работает", иначе пишет "Попробуйте еще" и переходит на начало. Окончание работы, если результат=0.

Вот так -

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils;
label A;
var
  x,y:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
A:
  write('Vvedite x = ');
  readln(x);
  write('Vvedite y = ');
  readln(y);
  if ((x-y)*(x+y)) < 0 then
  begin
    Writeln('Do it again!');
    goto A;
  end
  else
  if ((x-y)*(x+y)) > 0 then
    Writeln('Is work!')
  else
  if ((x-y)*(x+y)) = 0 then
    Writeln('Exit');
  readln;
end.

[Vovka91]

Огромное спасибо, вы мне очень помогли

[Mad_Cat]

var x,y:real;
begin
repeat
 readln(x,y);
 if sqr(x)-sqr(y)>0 then writeln('Oops I did it again!!!');
  if sqr(x)-sqr(y)<0 then writeln('Try Again!!!');
until  if sqr(x)-sqr(y)=0;
end

.