//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
Ответ:
это комплекс программ, которые обеспечивают управление работой компьютера, а также дают возможность пользователям взаимодействовать с ним
Объяснение: