Лабалаторная работа 3 (Часть 2). Задание 1. Вариант 16.

task.pas

program task1;

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}

uses
	SysUtils,
	StrUtils;

var LastNumber, CurrentNumber: real;
var IsDescendingSequence, IsDifferentSignsSequence: boolean;
var Index: integer;

begin
	Index := 1;

	IsDescendingSequence := true;
	IsDifferentSignsSequence := false;

	while true do
	begin
		while true do
		begin
			try
				Write('Please, enter number #', Index, ': ');
				ReadLn(CurrentNumber);
				break;
			except
				on E: Exception do
				begin
					WriteLn('Input value should be a number!');
					continue;
				end;
			end;
		end;
		
		if CurrentNumber = 0 then break;

		if Index <> 1 then
		begin
			if CurrentNumber >= LastNumber then IsDescendingSequence := false;
			if ((CurrentNumber >= 0) and (LastNumber < 0)) or ((CurrentNumber < 0) and (LastNumber >= 0)) then IsDifferentSignsSequence := true;
		end;


		LastNumber := CurrentNumber;
		Index := Index + 1;
	end;

	WriteLn;
	WriteLn('Is descending sequence: ', IfThen(IsDescendingSequence, 'Yes', 'No'));
	WriteLn('Is different signs sequence: ', IfThen(IsDifferentSignsSequence, 'Yes', 'No'));
	WriteLn;
	
	WriteLn('Please, enter something for exit...');
	ReadLn;
end.