С1. Составить алгоритм и написать программу на вычисление скорости или пути , при условии , если t

Алгоритм:
Начало
Ввод t
Если t>1 часа, то 
начать выполнение операторов
ввод S;
V=S/t;
вывод V
закончить выполнение операторов
иначе 
начать выполнение операторов
ввод V;
S=Vt;
вывод S;
закончить выполнение операторов

Var S,V,t:integer;
begin
read(t);
if t>1 then
begin
read(s);
v:=s/t;
writeln(Скорость=,v);
end
else
begin
read(v);
s:=v*t;
writeln(Расстояние=,s);
end;
end.