Blame lazarus/console/support/support.lpr

Ivan Mahonin ab6427
program support;
Ivan Mahonin ab6427
Ivan Mahonin ab6427
var
Ivan Mahonin ab6427
  s: string;
Ivan Mahonin ab6427
Ivan Mahonin ab6427
begin
Ivan Mahonin ab6427
  Writeln('Have you any problem? (yes/no)');
Ivan Mahonin ab6427
  Readln(s);
Ivan Mahonin ab6427
  while s = 'yes' do begin
Ivan Mahonin ab6427
    Writeln('Have you a problem with electronic devices? (yes/no)');
Ivan Mahonin ab6427
    Readln(s);
Ivan Mahonin ab6427
    if s = 'yes' then begin
Ivan Mahonin ab6427
      Writeln('Have you a problem with TV? (yes/no)');
Ivan Mahonin ab6427
      Readln(s);
Ivan Mahonin ab6427
      if s = 'yes' then begin
Ivan Mahonin ab6427
        Writeln('You must to go to TV master');
Ivan Mahonin ab6427
      end else begin
Ivan Mahonin ab6427
        Writeln('Have you a problem with computer? (yes/no)');
Ivan Mahonin ab6427
        Readln(s);
Ivan Mahonin ab6427
        if s = 'yes' then begin
Ivan Mahonin ab6427
          Writeln('You must go to sysadmin');
Ivan Mahonin ab6427
        end else begin
Ivan Mahonin ab6427
          Writeln('I am sorry, I cannot help you.');
Ivan Mahonin ab6427
        end;
Ivan Mahonin ab6427
      end;
Ivan Mahonin ab6427
    end else begin
Ivan Mahonin ab6427
      Writeln('Have you a problem with teapot? (yes/no)');
Ivan Mahonin ab6427
      Readln(s);
Ivan Mahonin ab6427
      if s = 'yes' then begin
Ivan Mahonin ab6427
        Writeln('Was you teapot broken? (yes/no)');
Ivan Mahonin ab6427
        Readln(s);
Ivan Mahonin ab6427
        if s = 'yes' then begin
Ivan Mahonin ab6427
          Writeln('You must buy our super glue');
Ivan Mahonin ab6427
        end else begin
Ivan Mahonin ab6427
          Writeln('I am sorry, I cannot help you.');
Ivan Mahonin ab6427
        end;
Ivan Mahonin ab6427
      end else begin
Ivan Mahonin ab6427
        Writeln('I am sorry, I cannot help you.');
Ivan Mahonin ab6427
      end;
Ivan Mahonin ab6427
    end;
Ivan Mahonin ab6427
Ivan Mahonin ab6427
    Writeln('Have you other problems? (yes/no)');
Ivan Mahonin ab6427
    Readln(s);
Ivan Mahonin ab6427
  end;
Ivan Mahonin ab6427
Ivan Mahonin ab6427
  Writeln('Good bye');
Ivan Mahonin ab6427
  readln(s);
Ivan Mahonin ab6427
end.