ребят помогите с информатикой, нужны задачи по операции присваивания...

var
i:integer;
begin
write('Введите число: '); //оператор ввода-вывода, в данном случае вывод на экран строки
readln(i); //оператор ввода-вывода, в данном случае принимаем ввод с клавиатуры
// и запоминаем в i
i:=i*2; // операция присваивания - присваиваем переменной i ее значение умноженное на 2
writeln('Ваше число умноженное на 2 равно: ',i); //оператор ввода-вывода
if i>100 then writeln('Результат больше ста!'); //условный оператор проверяем больше ли
//получившееся число чем число 100 и если да выводим сообщение
readln;//оператор ввода-вывода, ждем пока пользователь увидит результат и
//нажмет Enter для завершения
end.
// - так отмечаются комментарии в программе, они никак не влияют на ее работу, но
//помогают человеку читающему код быстро понять, что тут происходит

Учебник открой уже наконец

program HelloWorld;
var a, b:integer; //объявление переменной
begin
a := 3; //операотр присваивания (в переменную а присваиваем значение 3)

readln(b); //оператор ввода

writeln('вы ввели:', b); //оператор вывода

if (a = b) then //условный оператор
writeln('а равно б');

case b of //оператор выбора
1 : writeln('один'); //вариант первый
2 : writeln('два'); //второй вариант
4 : writeln('четыре'); //третий вариант
5 : writeln('пять'); //четвертый
6 : writeln('шесть'); //пятый
end; //конец оператора выбора

end.

Program otvetmail;
var x, y, z :begin;
Begin
read(x);
if x=5 then write(x);
if x<>5 then write(x+5);
if x<0 then write(x+x);
if x>100 then write(x*100);
if (x=5) and (y=10) then
begin
x:=y;
Write(x);
end;
end;
end.
Надеюсь это то что тебе нужно?