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

Спасибо огромное с:

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