Смотря откуда качал. Может ругаться на лекарства от жадности, встроенные в программу. Может на несоответствие цифровой подписи. Оригинальная программа - не вирус, но и практической пользы от неё немного: компилятор PHP - такой же бред, как и компилятор JS.
program rost;
var h1,h2,h3: integer;
begin
write ('Введите рост трёх спортсменов');
read(h1,h2,h3);
writeln;
if (h1<h2) and (h2<h3) then
write ('По росту') else
write ('Не по росту');
end.
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.
Var n, n1, n2, n3: integer;
begin write('Введите трехзначное число: '); readln(n); if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа') else begin n1 := n div 100; n2 := n div 10 mod 10; n3 := n mod 10; writeln('1 - ', n3, n2, n1); writeln('2 - ', n3, n1, n2); writeln('3 - ', n2, n1, n3); end;end.
X=-1
p=1
a=[]
while x!=0:
x=int(input())
p*=x
a+=[p]
for i in a:
print(i)