Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
var a,i,k:integer;
begin
read (a);
for i:=1 to a do
if a mod i = 0 then k:=k+1;
if (a=1) or (k=2) then write ('Да') else write ('Нет')
end.
Var n, i: integer;
begin
readln(n);
for i := 1 to n do
if (i mod 2 = 1) then
writeln(i);
<span>end.</span>
1.Попробуй вставить другую картинку
2.Переустанови word
3.Измени размер картинки в paint'е
Var input:integer;
begin
write('Enter number - ');
readln(input);
case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;
end.