var A, B, C: integer;
begin
writeln('Введите целые числа A, B, C: ');
readln(A, B, C);
if(B>17) and (A>17) and (C>7) then
writeln ('Да.')
else
writeln ('Нет.');
Предстваляется, что: классы, наследование, перегрузка и переопределение методов, а также интерфейсы - это и есть то основное, на чем стоит ООП в разных языках.
Далее остается только увеличить количество примеров и задач в этих уроках и готово - еще один раздел завершен ;)
uses Crt; // импортираем модуль Crt
var c: char;
begin
writeln(
'Нажмите клавишу-стрелку для проверки, ',
' для выхода из программы нажмите клавишу q'
);
while c <> 'q' do
begin
c := readKey();
if (c = #72) then
writeln('up');
if (c = #80) then
writeln('down');
if (c = #75) then
writeln('left');
if (c = #77) then
writeln('right')
end;
writeln('Programma zavershena');
end.