Приложение а

(справочное)

Блок-схема программы

Приложение б

(справочное)

Листинг программы

program DisenkoP1;

uses crt;

function IsInt(s:string; var n:integer):boolean;

var c:integer;

begin

val(s,n,c);

IsInt:=c=0;

end;

var n:integer;

s:string;

begin

repeat

repeat

write ('Введите количество дорог, ведущих на гору ');

readln (s);

if not IsInt(s,n) then writeln('Вы ввели не целое число, повторите ввод');

until IsInt(s,n);

if n<0 then writeln('Вы ввели отрицательное число, повторите ввод');

until n>0;

n:=n*(n-1);

if n>0 then

writeln('Турист может поднятся и спустится с горы ' ,n,' способами')

else writeln ('Турист не может подняться и спустится по разным дорогам');

readln;

end.