не знаю решения Опции

[степан07]

1. дан массив B(m,n) M<=10, N<=10.
найти все строки ,сумма квадратов элементов которых >20.напечатать их номера.Подсчитать общее количество таких строк.
2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200.

[Гость]

2. используя цикл while записать подпрограмму определения идеального веса длявзрослых людей по формуле вес =рост-100.выход из цикла значение роста =200.

С While не получилось...получилось просто так...

uses
crt;
var
rost,Ves:integer;
procedure Ves1(rost:integer);
 begin
   Ves:=rost-100;
 end;
begin
 clrscr;
 writeln('rost');
 readln(rost);
  if rost<200 then
   begin
    ves1(rost);
    writeln(ves);
   end
 else
   begin
    write('ERROR!');
    readln;
   end;
   end.