Question

помогите составить программу!!!!!!!!!!!!!!!
вывести  на экран числа от 10 до 20 и их квадраты

Answer 1

uses crt;
var x:integer;
begin
     for x:=10 to 20 do
         writeln(x,' ',sqr(x));
end.