Ярлыки и текст на рабочем столе слегка размывает, что делать, как исправить? знаю что тут школьные вопросы, но я не могу задавать вопросы в мейл. ру (живу в украине)

часть схемы, информацию - канал.

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.