Решить в pascal 3 задачи (любых) ссылка, сфотографировать решение или написать в тетради. Показать учителю на уроке.
видео ссылка
Это шаблон
// фам
// Если число положительное, то добавить к немудобавить число 10, иначе сделать его равным 7
var b, y:integer;
begin
write('Введите число ');
readln(b);
if (b>0)
then y:=b+10
else y:=7 ;
writeln('результат=' ,y);
end.