Составить алгоритм и написать решение на паскале: дано целое число а. найти периметр и площадь квадрата со стороной а

Var a,b,c: integer ; begin readln(a) ; b: =4*a ; c: =a*a ; writeln(b) ; writeln(c) ; end.

1, 1, 1, 2, 1
Изменение значения: 11, 9, 7, 5, 15, 13.

По логике, описывается в текстовых редакторах(World. блокнот
 и т.д.)
______________________________________________________________
Кнопка "СПАСИБО" и оценку ответа, пожалуйста.

Текстом
C:.
│  
├───Документы
│   └───Компьютеры
│           Принтер.gif
│          
├───Мои документы
│   └───Учебные
│           Доклад.doc
│           Реферат.doc
│          
└───Рисунки
    ├───Города
    │       Благовещенск.bmp
    │      
    └───Природа
            Бор.jpg
Графикой внизу