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.
Вроде бы так
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.