Помогите пожалуйста решить информатику нарисовать блок схемы

1) Составить блок-схему проверки успеет ли поезд, идущий со скоростью V км/с пройти расстояние S кинза время t с ?

2) Составить блок-схему вычисления по формуле

Y={5,6+cos(x-1), если x>0

{cosx²+8,5, если x≤0

program n;

var s,v,t:real;

begin

writeln('Введите время');

readln(t);

writeln('Введите скорость');

readln(v);

s:=v*t*60;

writeln(s,' км');

end.