пж помогите составить алгоритм S=V*T

vars,v,t:integer;beginwrite('vvedite v,t:  ');readln(v,t);s:=v*t;writeln(s);end. Я это еще в 6 классе писал)