(6*8)+(20:(4-2))=58
6*8=48
4-2=2 20:2=10
48+10=58
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон
Алгоритм записан на школьном алгоритмическом языке, который практически совпадает с Паскалем, поэтому конвертирование а Паскаль выполняется "строка в строку" путем тривиальной замены русских служебных слов английскими.
var
x:real;
begin
Read(x);
if x<0 then
Writeln('отрицательное число')
else Writeln('положительное число')
end.
https://rextester.com/l/pascal_online_compiler
Вот ссылка на онлайн компилятор