pascalabcnet/InstallerSamples/!Tutorial/01_First/Eoln.pas

// Демонстрация работы функции Eoln
begin
  while not Eoln do
  begin
    var c := ReadChar;
    Print(c);
  end;
end.
-												fix #1419

											
										
										
											2018-10-26 20:12:42 +03:00
+								// Демонстрация работы функции Eoln
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								begin
-												fix #1419

											
										
										
											2018-10-26 20:12:42 +03:00
+								  while not Eoln do
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								  begin
-												fix #1419

											
										
										
											2018-10-26 20:12:42 +03:00
+								    var c := ReadChar;
 								    Print(c);
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								  end;
 								end.