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