Прямокутник

Складіть програму обчислення площі прямокутника (S=a*b).
program pramokytnik ;
uses crt;
Var a,b,s:word;
BEGIN
 a:= 5; b:= 8; s:= a*b;
 Writeln('Plosha =',s,'kv.sm.');
END.
Вхід a:= 5; b:= 8; s:= a*b;
Вихід
Вхід  a:= 5; b:= 6; s:= a*b;
Вихід 30