А можно порусски пожалуйста написать
Program n1;
var x,y: real;
begin
readln(x,y);
if y=3*x-2 then write('лежит')
else write('не лежит');
end.
Всего самолетов 7,
количество информации = log₂7
Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>
Тему,идею,лист бумаги,карандаш и прямые руки))) и знать как ты будешь делать анимацию