Напишите программу вычисления идеального веса человека по формуле: идеальный вес = рост в см - 100. значение роста вводится с клавиатуры. результат вывести в следующем виде: .

Var r,ves: integer; begin read(r); ves: =r-100; writeln('для человека ростом ',r,'см идеальный вес равен ',ves,' кг'); end.

Var a: array [1..10] of integer;     i,temp: integer;     f: boolean; begin  randomize;   for i: =1 to 10 do    a[i]: =random(100);   for i: =1 to 10 do    write(a[i]: 3);     writeln;   repeat    f: =false;     for i: =1 to 9 do    begin      if a[i]> a[i+1] then      begin          f: =true;           temp: =a[i];           a[i]: =a[i+1];           a[i+1]: =temp;       end;     end;   until not f;   for i: =1 to 10 do    write(a[i]: 3);     temp: =0;   for i: =1 to 3 do    temp: =temp+a[i];     writeln;     writeln(temp);   readln; end.

Program strok; uses crt; const number=['0','1','2','3','4','5','6','7','8','9']; var a: array[1..10] of string; i,j,k: integer; s: string; begin {ввод элементов массива} for i: =1 to 10 do begin write('введите ',i,' элемент массива:   '); readln(a[i]) end; {проверка условий} for i: =1 to 10 do {перебираем элементы массива} begin k: =0; {задаем триггер}   s: =a[i]; for j: =length(s) div 2+1 to length(s) do if s[j] in number then k: =1; {pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера} if k=0 then writeln(s) end; readln end.