Решите пж если есть прога "Turbo Pascal" У меня не инсталится на комп с совместимостью проблемы :c

сайт убрал все строчки, достаточно между begin и writeln сделать строчку, остальное будет работать и без этого

если нужно красиво, то после каждой ; сделать новую строчку

Отформатируйте, все равно модераторы заставят или удалят ответ.

И еще: Ваше решение неполное, где задание 56?

Номер 56var t,ts,k,ks,a:real;beginwriteln('Вычисление стоимости покупки.');writeln('Введите исходные данные:');readln(t,ts,k,ks); // t - кол-во тетрадей, ts - стоимость 1 тетради, k - кол-во карандашей, ks - стоимость 1 карандашаif (t<0) or (ts<0) or (k<0) or (ks<0) then writeln ('Ошибка') elsebegina:=t*ts+k*ks;writeln(a);end;end.Номер 58var a,b,c:real;beginwriteln('Вычисление стоимости покупки.');writeln('Введите исходные данные:');write('Цена одного килограмма яблок (руб.) -> ');readln(a);write('Вес яблок (кг) -> ');readln(b);c:=a*b;writeln(' ');writeln('Стоимость покупки: ',c,' руб.');end.