Кузнечик кузя из лунтика например
Begin
readseqinteger('Введите n чисел:', readinteger('Введите n:')).Where(x -> x > 8).Sum.ToString.Println;
end.
uses crt;
var
x,c:real;
begin
write('Сколько стоит проездной? '); read(x);
write('Вы ездите без билета. Сколько составляет штраф? '); read(c);
write('За безбилетный проезд Вас оштрафовали за месяц на ',5*c,' рублей.');
if (5*c>x) then write('Это невыгодно. Купите проездной.')
else write('Это выгодней, чем покупать проездной каждый месяц.');
end.
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
<span>Запись арифметических выражений: Цифры, знаки действий
Запись мелодий: Нотные знаки
</span><span>Запись звуков речи: Буквы алфавита
Оформление календаря погода: Знаки погоды (облачно, пасмурно...)
Управление движением транспорта: </span>Дорожные знаки