Возможно, стоит какой-то плагин (в оригинальной игре если, не DST). Отключите его.
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
Var s1, s2, t1, t2 :real;
begin
writeln('Введите s1, t1, t2');
readln(s1);
readln(t1);
readln(t2);
s2 := s1/t1 * t2;
writeln('s2: ',s2)
end.