Ну например школьный дневник.
Он же описывает объекты (предметы) и их переменные параметры (оценки) .
<span>прекрасный пример</span>
Var a,b,c:real;
begin
read (a,b,c);
if (a<>b) and (a<>c) and (b<>c) then writeln ('НЕТ') else
if (a=b) and (a=c) and (b=c) then writeln ('ВСЕ РАВНЫ') else
writeln ('ДА');
end.
Рабочий код во вложениях. Удачи.
P.s. Комментарии 1) // первая цифра числа //
2) // вторая цифра числа //
3) // третья цифра числа //
(x+y+z)÷3 тоесть:мы складываем x y z и делим на 3
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.