Напишите программу, которая вычисляет площадь и периметр квадрата со стороной равной 3 см . в паскаль

var a,s,p: integer;

begin

a: =3;

p: =a*4;

s: =a*a;

writeln(p,' ',s);

end.

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

«alt+[shift]+tab» — переключение между окнами; «alt+f4» — закрыть активное окно; «alt+space (пробел)» — открытие системного меню окна. с него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без мыши; «alt+shift» или «ctrl+shift» — переключить язык; «ctrl+alt+delete» — открытие окна «безопасность windows»; «win» — открытие/закрытие меню «пуск»; «ctrl+esc» — открытие/закрытие меню «пуск»; «win+d» — свернуть/восстановить все окна, включая диалоговые; «win+e» — открытие программы «проводник»; «win+r» — открытие окна «запуск программы» («пуск» --> «выполнить…»); «win+f» — открытие окна для поиска; «win+l» — заблокировать компьютер; «win+m» — сворачивает все окна, кроме диалоговых; «win+pause/break» — открытие окна «система»; «ctrl+shift+esc» — открытие окна «диспетчер »; «print screen» — поместить снимок всего экрана в буфер обмена. в ms-dos использовалась для вывода на принтер содержимого экрана; «alt+print screen» — поместить снимок активного окна в буфер обмена;