Дана программа.

begin
write ('fox ');
write ('Запомни!')
end.

На экране данные выведены следующим образом:

fox
Запомни!
fox Запомни!
fox
Запомни

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.

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end. 

393сf - 8с.с.

32333301033 - 4с.с.

вроде правильно..