Закрасьте на диаграмме области, в которых истинно логическое выражение.

uses crt; var

  a,b: integer; begin  write('введи возраст саши: '); read(a);

  write('введи возраст маши: '); read(b);

  writeln;   if a> b then write('саша старше маши');   if a< b then write('маша страше саши');   if a=b then write('маша и саша - ровесники'); end.

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!