Решенить задачу по паскаль 1.дано число х вычислите қол квадрат 2.имеется число а , число b в 2 раза больше, определить их сумму, числа целые. Срочно

1) var x:integer; begin readln(x); writeln(sqr(x)); end. 2) var a,b:integer; begin readln(a); b:=2*a; writeln(a+b); end.

Тут есть два варианте решения, у Вас в задании написано что число Х и число А уже даны, то бишь с клавиатуры вводить их не надо. Тогда 1 вариант решения 1. и 2. задания: 1) var x: integer; begin x:=5; // Поменяйте значение на нужное writeln ('Квадрат числа ', x, ' = ',sqr(x)); end. 2) var a,b: integer; begin a:=3; // Поменяйте значение на нужное b:=a*2; writeln ('Сумма A и B = ', a+b); end. 2 вариант решения, все значения вводятся с клавиатуры: 1) var x: integer; begin write ('Введите число Х: '); read(x); writeln ('Квадрат числа ', x, ' = ',sqr(x)); end. 2) var a,b: integer; begin write ('Введите число А: '); read (a); b:=a*2; writeln ('Сумма A и B = ', a+b); end.