Помогите составить программу на паскале

[NeAnGel]

Компьютер спрашивает какой у вас рост и вес.Если рост-110 равен весу, то вы эталон.если рост-110<веса, то хорошего человекадолжно быть много.Еслирост-110>веса, то берегись ветром унесёт.

[SchwarzeWolfin]

а в чём собственно проблема? вводим с клавиатуры 2 переменных (рост и вес), уменьшаем рост на 110 и проверяем условие. в зависимости от него выводим ответ

[Pavlucha]

Решил в 2-ух вариантах.Может можно было и проще,но у меня знания Паскаля,минимальные.

uses crt;
var a,b:integer;
begin
   clrscr;
   writeln('Какой у вас рост и вес?Введите оба значения через пробел');
   readln(a,b);
   a:=110;
     if  (a=b) then writeln('Вы эталон');
       begin
          if (b>a) then writeln('Хорошего человека должно быть много');
       end;
       begin
         if (b<a) then writeln('Берегись ветром унесёт');
       end;
   readln;
end.

Uses crt;
var a,b:integer;
begin
    clrscr;
    writeln('Ваш рост 110 см,какой у вас вес?');
    a:=110;
    write(a,' ');
    readln(b);

    if (a=b) then writeln('Вы эталон!');
    if (a<b) then writeln('Хорошего человека должно быть много!');
    if (a>b) then writeln('Берегись!Ветром унесёт!');
    readln;



end.