прошу!помогите,пожалуйста!нужно распечатать в столбик таблицу умножения чисел от 1 до 10 на 0.8

program qq;var a:real; i: integer;beginfor i:=1 to 10 do begina:=i*0.8;writeln ('0.8*',i,'=',a);end;end.

ааа спасибо спасибо:)))благодарю за помощь)

да не за что)