Кто разбирается в программировании? помогите решить задачку!

Язык указан в метках: qBASIC.

DECLARE FUNCTION Sum! (t!, w!)
PRINT "Введите исходные данные: "
INPUT "A = ", a
INPUT "B = ", b
INPUT "X = ", x
INPUT "Y = ", y
S1 = Sum(a, b)
S2 = Sum(x, y)
PRINT "S1 = "; S1
PRINT "S2 = "; S2
END

FUNCTION Sum (t, w)
Sum = t + w
END FUNCTION

Язык вы не указали и типы данных параметров также не забыли указать, Ну и ладно! В таком варианте на С++ вы можете суммировать данные любых основных числовых типов.

// AcidGum_2011-12-19
#include <iostream>
using namespace std;

double summa(short &, short &);
double summa(int &, int &);
double summa(float &, float &);
double summa(double &, double &);
double summa(int &, short &);
double summa(short &, int &);
double summa(short &, float &);
double summa(float &, short &);
double summa(short &, double &);
double summa(double &, short &);
double summa(int &, float &);
double summa(float &, int &);
double summa(int &, double &);
double summa(double &, int &);
double summa(float &, double &);
double summa(double &, float &);

int main()
{
int a = 5;
float b = 35.4;
short x = 8;
double y = 4.25, s1, s2;

s1 = summa(a, b);
s2 = summa(x, y);

cout << " s1 = " << s1 << '\n' << " s2 = " << s2;

cin.get();
return 0;
}

double summa(short &a, short &b){ return (double) a + b; }
double summa(int &a, int &b){ return (double) a + b; }
double summa(float &a, float &b){ return (double) a + b; }
double summa(double &a, double &b){ return a + b; }
double summa(int &a, short &b){ return (double) a + b; }
double summa(short &a, int &b){ return (double) a + b; }
double summa(short &a, float &b){ return (double) a + b; }
double summa(float &a, short &b){ return (double) a + b; }
double summa(short &a, double &b){ return a + b; }
double summa(double &a, short &b){ return a + b; }
double summa(int &a, float &b){ return (double) a + b; }
double summa(float &a, int &b){ return (double) a + b; }
double summa(int &a, double &b){ return a + b; }
double summa(double &a, int &b){ return a + b; }
double summa(float &a, double &b){ return a + b; }
double summa(double &a, float &b){ return a + b; }

Где программа?

объявляешь функцию описываешь подставляешь

pascal:
function s1(a,b: real):real
begin
s1:=a+b;
end;
function s2(x,y real):real
begin
s2:=x+y;
end;

a:=1;
b:=2;
x:=3;
y:=4;
writeln(s1(a,b));
writeln(s2(x,y));
end;

что-то вроде этого, давно на паскале не писал, если надо на другом языке, стучись в агент