Составить алгоритм сложения двух целых чисел F и N , вводимых с клавиатуры. Результат сложения записать в виде переменной S . По данному алгоритму написать программу в Паскале.

Алгоритм

алг сложение
цел F,N,S
нач
ввод F
ввод S
N:=F+S
вывод S
кон
алг сложение
цел F,N,S
нач
ввод F
ввод N
S:=F+N
вывод S
кон
алг сложение
цел F,N,S
нач
ввод F
ввод N
S=F+N
вывод S
кон

Программа в Паскале

program summa;
var
F,N,S:integer;
begin
readln(F);
readln(N);
S:=F+N;
writeln(S);
program summa;
var
F,N,S:integer;
begin
readln(F);
readln(N);
S:=F+N;
writeln(F);
end.
program summa;
var
F,N,S:integer;
begin
readln(F);
readln(N);
S:=F+N;
writeln(S);
end.

А) По условию, девочку, вырастившую маргаритки зовут не Роза
("девочка, вырастившая маргаритки, обратила внимание Розы...") и не Рита ("ни у одной из девочек имя не совпадает с названием любимых цветов"), значит, её зовут Анюта. Далее следует, что Роза (вырастила не розы) могла вырастить только анютины глазки, а Рита - розы.
б) Говорит правду либо Виктор, либо Марат, так как их показания противоположны по смыслу. Значит Андрей и Денис соврали, из показания Дениса следует, что стекло разбил именно он. Правду сказал Марат.

Var
    n, i, prev: integer;

function IsSimpleNumber(n: integer): boolean;
var
    i: integer;
begin
    IsSimpleNumber := true;
    
    for i := 2 to round(sqrt(n) + 1) do
        if n mod i = 0 then begin
            IsSimpleNumber := false;
            exit;
        end;
end;

begin
    read(n);
    prev := 0;
    
    for i := n to 2 * n do
        if IsSimpleNumber(i) then
            if prev = 0 then
                prev := i
            else if i - prev = 2 then begin
                writeln(i, ', ', prev, ' - близнецы');
                halt;
            end
            else prev := i;
    
    writeln('Близнецов нет');
end.