нарисовать танк и девочку в Кумире

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб