Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  a
Language: PASCAL
Code:
program mp;

uses Crt;

var
  a, b, name: string;
  endes: integer;
  news: text;

begin
  assign(news, 'news.txt');
  while endes <> 1 do
  begin
    reset(news);
    readln(news, a);
    if a <> b then begin writeln('==§§§=='); writeln(a); writeln('§§===§§'); end;
    b := a;
    close(news);
    delay(1000)
  end;
end.
Comments: