Создайте 3 переменные: целого типа a и действительного b,c  равные 7 и 0.1, 0.7 соответственно. Выведите построчно на экран их сумму, разность, произведение и частное.

Пользователь знает ключ, или

пароль, который известен только ему. К этой группе можно отнести и идентификацию через смс-уведомления. При вводе имени и пароля пользователя сервер сравнивает введенные данные

с сохраненными данными. В случае полной идентичности введенных данных появляется возможность войти в систему.

Различают два вида паролей – динамические

и постоянные. Постоянные пароли изменяются

только по требованию пользователя, а динамические пароли изменяются по определенным параметрам. Например, если пользователь забудет

пароль, сервер может предложить ему динамический пароль для входа в систему.

Объяснение:

Var     
SurName : Array [1..30] of String;       
Mark  : Array [1..30] of Real;         
Cand    : Array [1..30] of String;       
NPupil, K : Integer;                                                      

BEGIN  
Write('Сколько всего учеников ? '); 
ReadLn(NPupil); 
WriteLn('Введите фамилии и оценки учеников :'); 
For var i := 1 to NPupil do   
begin
Write(i, '. Фамилия - ');
ReadLn(SurName[i]);         
Write('     Оценка - ');    
ReadLn(Mark[i]);   
end; WriteLn; 
K:=0;  
For var i := 1 to NPupil do   
If Mark[i]=2  then     
begin
K:=K+1;
Cand[K] := SurName[i]
end; 
If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')   
else 
begin
WriteLn('ДВОЕЧНИКИ :');           
For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);     
end;
END.