Program Graduate;
var age: integer;
institute: string;
school: string;
begin
writeln('Введите возраст: ');
readln(age);
if age > 17 then
begin
writeln('Введите ваш университет: ');
readln(institute);
writeln('Хороший институт');
end
else
begin
writeln('Введите вашу школу: ');
readln(school);
writeln('Хорошая школа');
end;
end.
Человек, умеющий читать и писать, казался египтянам мудрецом потому, что образование в то время мало было развито. И тот человек, который умел читать и писать казался египтянам очень умным, так как в то время практически никто не умел делать это.
Всё сделано лично мной. Копирование запрещено©
var N,i:integer;
begin
readln(n);
while (n mod 10=0) do begin inc(i); n:=n div 10; end;
writeln(i);
end.