Составить блок схему по заданному алгоритму
var x: byte;
begin
readln (x);
case x of
125: writeln ('петров тел. 125');
100: writeln ('сидоров тел. 100');
101: writeln ('михайлов тел. 101');
115: writeln ('иванов тел. 115');
117: writeln ('попов тел. 117');
else writeln ('абонента с таким номером не существует в базе! ');
end;
end.

yalunaluna    3   06.12.2019 17:24    0