Вводим имя человека,рост и вес,выводим имя человека и разность роста и веса. паскаль.

Var
  s:string;
  a,b:integer;
Begin
  write('Введите имя ');
  Readln(s);
  write('Введите рост и вес ');
  Readln(a,b);
  write('У человека по имени ',s,' разница роста к весу равна ',a-b);
End.