За команду ввода отвечает readln(Переменная). Пример:
var x,y:real;
begin
readln(x,y);
end.
Производится ввод двух символов
Program age;
var m:integer;
begin
readln(m);
if (m<=13) then writeln('детство');
if (m>=14)and(m<=24) then writeln('молодость');
if (m>=25)and(m<=59) then writeln('<span>зрелость</span>');
if (m>=60) then writeln('старость')
end.
- Регистрирование, накопление новых понятий медицины и их взаимосвязей с накопленными знаниями
- обновление, и дополнение существующий понятий медицины
- обработка, копирование и распространения зананий об медицинских понятиях между мед специалистами
- сбор, обработка и анализ статистики о заболеваниях, лекарствах
- выявление ложных, неактуальных заболеваний, понятий и их обработка
- создание и использования спец протоколов для передачи информации о заболеваниях и пр. между мед учреждениями
while условие выполнения цикла do
begin
{Операторы}
end;