Сделать в паскале с условным оператором. определить температуру и вес вашего тела( вес тела любой брать) в фунтах и по шкале фаренгейта. 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.