Begin
writeln(350/2/3*60,' секунд');
<span>end.</span>
Программа, а второе не знаю
Program anton4nk;
uses crt;
var x, y : real;
begin
writeln('Если x<1, Выполняется y = x+3 | Если x>1, Выполняется y = x-3');
writeln;
write('Введите число x: ');
readln(x);
if x<1 then
y:=x+3
else
y:=x-3;
writeln('Результат: ', y);
end.
Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки