Var N,A,Min:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 2 = 0)and(A < Min) then Min:=A;
End;
WriteLn(Min)
End.
Скорее не знаки а символы это как бы объединение букв, цифр и знаков
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Попробуй переделать вот эту программу под себя: (см. скриншоты)
Или вот я доработал программу: Выводятся 3 окружности , радиус которых убывает на 50 пикселей