как написпть (напечатать ) таблицу умножения от 1 до 10 в паскаль? Заранее спс

Question

Оленька · Accepted Answer

тебе распечатать или чтобы она на экране появлялась? 
если просто чтоб появлялась то просто 
program 1; 
var i,s,k:integer; 
for i:=1 to 10 do 
 begin 
 for s:=1 to 10 do 
 begin 
 k:=i*s; 
 WriteLn (i,"*",s,"=",k); 
 s:=s+1; 
 end; 
 i:=i+1; 
 end; 
readln; 
end. 
 
хз вроде так. уже 1000 лет не вспоминал паскаль)