Сделать в Паскале с условным оператором.
Определить температуру и вес вашего тела( вес тела любой брать) в фунтах и по шкале Фаренгейта.
1 фунт=400 грамм
переводить температуру из градусов Цельсия по формуле:
Т по фаренгейту =1,8*температура по Цельсию+32

Program z1;
var t,v:real;
begin
writeln(введите вес(в фунтах));
readln(v);
v:=(v*400) mod 1000;
writeln(введите температуру(по Фаренгейту);
readln(t);
t:=(t-32)/1.8;
writeln(Вес=,v,кг; температура=,t);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.