паскаль.. . помогите решить

Question

Igor Igorov · Accepted Answer

Вот тебе первая: 
var a:integer; begin for i:=1 to 10 writeln(i:2,' - ',i*i:3); readln end. 
А попробовать хоть что нибудь выучить в школе ты еще не пробовал?

Роман Хомченко · Answer

Вот вторая (она же почти третья) : 
var i:integer; 
begin 
for i:=2 to 5 do 
 writeln('y при х = ',i, ' равен ', 1/i); 
end; 
readln; end.