Помогите пожалуйста решить задачки по информатике,нужно написать письменно,как сделали бы в паскале на компе
5 номер и 9 номер

var f,c:real;
begin
write ('Введите кол-во градусов по шкале Цельсия: ');
readln (c);
f:=1.8*c+32;
writeln (c,' градусов Цельсия = ',f,' градусов Фаренгейта');
end.