EPL/Код программы

Материал из Викиучебника — открытых книг для открытого мира
< EPL
Перейти к навигации Перейти к поиску

EPL activeate programm.

EPL's programm[править]

begin
writeln("Активируйте программу командой file.load. EPL message.");
file.active:string
readln(file.active)
if file.active="file.load" then begin
  writeln("EPL version: 0.0.1. Programm name: EPL code.txt. Creator of this programm: Volobuev Ilya. Your programm has started.");
# основная программа
# список списков
  operators_list:=" ";
# переменные
  end
  else begin # далее ошибка запуска программы
  writeln("Введена неверная команда. Вместо file.load введено: ", file.active," Введите заново.")
  end
end