#include<iostream>
using namespace std;
int main()
{
setlocale( LC_ALL, "Russian" );
float a,b,s;
int dp;
cout << "Привет! Я калькулятор!Какие действие вы будете выполнять:" << endl;
cout << "1. Сложение. " << endl;
cout << "2. Отнимание." << endl;
cout << "3. Умножение." << endl;
cout << "4. Деление." << endl;
cout << "Введите число для выбора действия" << endl;
cin >> dp;
switch(dp)
{
case 1:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a + b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 2:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a - b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 3:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a * b;
cout << "\n" << a << " * " << b << " = "<< s << endl;
break;
case 4:
cout << "Число a = " << endl;
cin >> a;
cout << "Число b = " << endl;
cin >> b;
s = a / b;
cout << "\n" << a << " / " << b << " = "<< s << endl;
break;
}
return 0;
}
1
...А если интересует решение на классическом Паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.
Обрати внимание! longint может хранить значения только до 
, поэтому конкретно в этой программе вывод будет достоверным только для N ≤ 46. Ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение N возрастёт до 92. Для бОльших N тебе придётся писать длинное сложение.
var
i, n, pred, predpred, cur: longint;
begin
read(n);
if n = 1 then writeln(1)
else if n = 2 then writeln('1 1')
else write('1 1 ');
if n < 3 then exit;
pred := 1;
predpred := 1;
for i := 3 to n do
begin
cur := pred + predpred;
write(cur, ' ');
predpred := pred;
pred := cur;
end;
writeln;
end.
var a, P: real;
begin
readln(P);
a := P / 5;
writeln(a, ' кг сахара');
writeln(a, ' кг персиков');
writeln(a * 3, ' литров воды');
end.