Задание 1. Составить алгоритм и программу вывода на экран удвоенных значений целых чисел от 5 до 15.
Задание 2. Составить алгоритм и программу вывода на экран таблицы значений Y: y=sin3x для всех значений x от 1 до 2 с интервалом 0,3.
Задание 3. Вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0), вводимых с клавиатуры.

Задание №1var  x:integer;begin  for x:=5 to 15 do Writeln('x=',x:2,'  y=',2*x)end.Результат выполнения программы:x= 5  y=10x= 6  y=12x= 7  y=14x= 8  y=16x= 9  y=18x=10  y=20x=11  y=22x=12  y=24x=13  y=26x=14  y=28x=15  y=30Задание №2var  x:real;begin  x:=1;  while x<=2 do begin    Writeln('x=',x:4:1,'   y=',sin(3*x):8:5);    x:=x+0.3  endend.Результат выполнения программы:x= 1.0   y= 0.14112x= 1.3   y=-0.68777x= 1.6   y=-0.99616x= 1.9   y=-0.55069Задание №3const  n=40;var  i:integer;  a:real;begin  for i:=1 to n do  begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) endend.Фрагмент работы программы:a1=2.6S=6.76a2=4.18S=17.4724a3=1S=1a4=17S=289a5=