Uses
crt;
var
a,b,c:integer;
begin
textbackground(15);
clrscr;
textcolor(1);
writeln('вводить номер ответа 1,2!');
writeln('человек учиться хорошо? 1)да2)нет');
readln(a);
clrscr;
writeln('ему больше 18 лет? 1)да2)нет');
readln(b);
clrscr;
writeln('он хочет получить образование?1)да2)нет');
readln(c);
clrscr;
if (a=1)and(b=1)and(c=1) then begin
writeln('он учиться в институте!');
end
else begin
writeln('он учиться в техникуме!');
end;
end.