Написать таблицу умножения на 5 в паскаль

var a, b, c, d, e, h, n, g, u, o, p: integer;

begin

write ('a = ');

read (a);

b:= a*1;

c:= a*2;

d:= a*3;

e:= a*4;

h:= a*a;

n:= a*6;

g:= a*7;

u:= a*8;

o:= a*9;

p:= a*10;

writeln ('b=', b);

writeln ('c=', c);

writeln ('d=', d);

writeln ('e=', e);

writeln ('h=', h);

writeln ('n=', n);

writeln ('g=', g);

writeln ('u=', u);

writeln ('o=', o);

writeln ('p=', p);

end.

С клавиатуры когда тебе на экране выскочет а= напиши пятёрку)))