Разработать код алфавита и написать два слова кодом

Question

Информатика: Разработать код алфавита и написать два слова кодом

kurolesov71 · Accepted Answer

Program question;

var
a: string;
b: integer;

begin
writeln('Сколько тебе лет?:');
readln(b);
if b > 17 then begin
writeln('В каком институте ты учишься?:');
readln(a);
writeln(a, ' хороший институт');
writeln('До следующей встречи!');
end
else
if b <= 17 then begin
writeln('В какой школе ты учишься?');
readln(a);
writeln(a, ' не плохая школа');
writeln('До следующей встречи!');
end;
end.

MOGZ ответил