Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>
-------------------------------------
колмес - это мелок