Решите пж если есть прога "Turbo Pascal" У меня не инсталится

http://pascalabc.net/ - вроде официальный веб-сайт

А ещё есть лазарус и fpc

Не размышлял что такой сыр бор будет, завтра пойду покажу учителю если работать будет отмечу лучшим

Номер 56

var t,ts,k,ks,a:real;
begin
writeln('Вычисление цены покупки.');
writeln('Введите исходные данные:');
readln(t,ts,k,ks); // t - кол-во тетрадей, ts - цена 1 тетради, k - кол-во карандашей, ks - цена 1 карандаша
if (tlt;0) or (tslt;0) or (klt;0) or (kslt;0) then writeln ('Ошибка') else
begin
a:=t*ts+k*ks;
writeln(a);
end;
end.

Номер 58

var a,b,c:real;
begin
writeln('Вычисление цены покупки.');
writeln('Введите начальные данные:');
write('Цена одного килограмма яблок (руб.) -gt; ');
readln(a);
write('Вес яблок (кг) -gt; ');
readln(b);
c:=a*b;
writeln(' ');
writeln('Цена покупки: ',c,' руб.');
end.