База отправлена на почту, если нужна еще кому то, стучаться в личку.
Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
256 символов стандартного алфавита стало недостаточно (русский, английский и некоторые спец символы). для ютого ввели unicode, где на каждый символ уже отводится 2 байта, с помошью него уже можно закодировать 65536 символов (и арабский и иероглифы и спецсимволы новые, почти все письменные языки и символы)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,v,t):=ReadInteger3('Введите S,v,t');
if s<>v*t
then Println('Расстояние не равно скорости на время')
else Println('При скорости в 3 р. больше, расстояние=',v*t*3,'км');
<span>end.
Пример(1):
Введите S,v,t-> 9 5 2
Расстояние не равно скорости на время
Пример(2):
Введите S,v,t-> 10 5 2
При скорости в 3 р. больше, расстояние= 30 км
</span>